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EDITOR'S COMMENTS 



Welcome to issue 69, a summer feast of 
articles. Since many of you were gone or 
busy having fun this sximmer, TCJ is 
playing catch up with our on going ar- 
ticles. 

Your letters and comments start on the 
next page. A real mixed bag of com- 
ments this time. Certainly something for 
everyone. 

Ron Anderson gets started on doing 6809 
assembly for the Flex system. Since there 
are many readers still using Flex and 
many more wanting to better understand 
assembly, Ron is stepping in to help fill 
that space between ones ears. 

Frank Sergeant finishes his recent XT 
travails by explaining how his Pygmy 
Forth helped him do some stepper motor 
activities. As usual we welcome your 
versions of Frank's Forth program steps 
in other languages. However as you will 
see, Frank makes it seem too simple to 
be true. 

Ron Mitchell steps up next with his sec- 
ond installment of leading one into ZCPR 
for the first time. Like Ron's last entry 
in the journal, this should be educational 
and entertaining for all our readers. Now 
Ron, it's A> in the USA, EH> in Canada, 
but what about Europe and Austraha? 

Dr. S-100 drops in with his mail bag and 
tries to update our readers on the S-100 
goings on. Herb doesn't stop there, as he 
co-authored (well mostly edited) the 
Centerfold section. We talked about it 
and now it is here, the S-100 IDE single 
chip project. This elegant design deserves 
your studty and comments. Claude Palm 
will have more to say next issue on his 
newest single board Z180 project which 
incorporates a version of the single chip 
IDE inter&ce. This shows of course how 
using more current, but e}q)ensive de- 



vices, makes multiple variations, simple 
and usually cheaper to do than redesigns 
using individual devices. Nice work 
Claude and thanks. 

Getting another big thanks for ever strug- 
gling to keep our user's Kaypros run- 
ning like new, is Charles Stafford as Mr. 
Kaypro. Chuck shows you how to layout 
the Advent Decoder board and start sol- 
dering. So get those soldering irons hot 
and start wiring and burning. 

Rick Rodman's help with tying all our 
systems together get some assistance as 
he comments and shows us Tilmann 
Reh's RS232 to RS-485 interface. 
Tilmann's design is very nice since it 
isolates the signal electrically and thus 
prevents damaging your system, should 
another in the group go south for the 
winter. I know of one case where the 
power supply ground was not right and 
when the serial cables between this and 
another unit were touched together (well 
actually the person didn't even get them 
to touch) arcs and sparks went every- 
where. Seems the grounds were some- 
how about 1 15 Volts different (smarts a 
bit) and thus blew most of the chips in 
the system. Nice addition to the design 
Tilmann! 

Brad Rodriguez is still moving on with 
installment number 6 of his Moving Forth 
series. This installment completes the 
Z80/CPM version of his brand new Camel 
Forth. Next time Brad promises to give 
us the 805 1 version, which 1 know many 
have been waiting for. 

Since I received some comments on my 
Forth support, I felt it is about time for a 
little explanation of my interest in it. So 
the Computer Comer is mostly on what 
it is about polyFORTH I think you should 
consider knowing about. 1 also throw in 



some other tid bits of facts and fodder 
for your consideration. 

So that is it for issue 69. Packed as 
always with goodies for your consump- 
tion. 

A Death in the Family! 

As many of you know by now, the cre- 
ator if you will, of CP/M is dead. Gary 
Kildall died Monday, July 1 1, 1994. His 
death appears to be a side effect of not 
seeking medical help immediately after 
suffering an head injury. 

I had considered commenting more on 
his work until I received The Z-Letter. 
David McGlone reviewed his life and 
activities so well 1 rather everyone just 
got a Z-letter. 

Catching Up... 

I am still catching up from being gone 
for most of two months. I believe 1 have 
sent all back issues and should have all 
renewals updated by the time you get 
this. Should you think your request has 
fallen through the cracks, please call 
and see if I stuck your request in the 
wrong "to do" pile. With that said, I am 
also trying to get ahead and want any 
articles to be here by the last week of 
October, else it will be in issue 71, not 
70! 

So lastly.. Enjoy! Bill Kibler. 

The Computer Journal 

PO Box 535 
Lincoln, CA 95648-0535 

(916) 645-1670 

(800) 424-8825 

Genie as B.Kibler 

CompuServe: 71563,2243 

E-mail: b.kibler@Genie.geis.com 
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READER to READER 



Letters to the Editor 

All Readers 

MINI Articles 



Dear Bill, 

Look forward to many more issues of 
TCJ. E>ebit my piece of plastic again, 
anotheryears worth please. (Airmail rates 
please) 

This (US$44-00) will run out at about 
NZ$90-00. Hurts a bit I confess; but 
then I'm paying by choice and figure 
that if that's what it costs to support an 
old habit, so be it. (I can think of many 
more expensive pursuits. Most if not all, 
far less intellectual challenging/stimu- 
lating.) 

Read the article (Part 1 rC/#64) 'Small- 
C?' with great interest. While most is 
out of my league; 1 think 1 grasped more 
about the scope of 'C and its variations; 
than I'd previously read in any one small 
piece of print. Really looking forward to 
the follow ups. 

1 see no mention yet, in JW Weaver's 
spot, detailing the Morrow user group, 
or the support BBS. Both still alive and 
well. Guess I might have to supply from 
way down here if one of you, being closer, 
don't do so very soon. 

Best wishes for '94, Many Thanks, Paul 
MacDiarmid, Rotorau, New Zealand. 

Thanks Paul for your long distance sup- 
port. Yup, changes in dollar sure can 
make TCJ costly. I had to raise the rates 
on all readers to make us break even. 
Yet if I do too large of a issue I still can 
loose money on the mailing costs over- 
seas. 

As to the Morrow user group, haven 't 
heard from them in long time, so if you 
talk to any members, get them to send 
me the latest information. 



So far all the 'C 'follow up has been our 
regular writers expressing their views 
and comments. May start a beginning 
section on 'C and start requesting more 
comments on where to go next. So far 
seems like most readers just overly satu- 
rated with the topic and are letting it 
simmer for a while before starting on it 
again. Time will tell. Thanks again for 
hanging in there, Paul! Bill. 

Dear Bill: 

1 program and use 'antique 8 bit com- 
puters' for many things. They are an 
Apple ][e and a Franklin Ace 1200. In 
my opinion, they are far superior to IBM/ 
MSDOS machines. MSDOS systems are 
just CP/M systems that work with CP/M 
86, a modified CPM 80 system for 16 bit 
machines, and NOT a gang ho advanced 
system as almost everyone believes. 
When I want to, I can degrade to a Z80 
system simply by rebooting my comput- 
ers. I run Apple Pascal, DOS, ProDOS 
and CPM2.2/CPAM 4.0 on these. 

In TCJ issue #64, Jim Moore wrote you 
a letter I would like to comment on. 
First, I have always agreed 100% with 
him about new versions of programs, 
wasted space (on any CPM system), and 
so forth. This, as well as being harder to 
program, is why I will never degrade 
myself by 'upgrading' to a i w system. 
(I call it downgrading.) 

Second, on the subject of CP/M soft- 
ware. The Apple CP/M format is the 
same as the TRS 80 (Radio Shack) for- 
mat, which is an 8 bit format called 
CPM 80. The most common version of 
this is 2.20 and higher. I have found 
some of this software in 1) The Public 
Domain Exchange, 2) a Colorado user 
club - Aces High, 3) a local software 



liquidator (California's largest) and now 
at 4) Lambda Software (advertised in 
your magazine). 

Yours Truly, Daniel E. Wallace, Moun- 
tain View, CA. 

Thanks Daniel for those words, and do 
you have the address for Aces High, 
would like to put them in the support 
group section if they are still active. 

Yes upgrading on IBM clones can be a 
nightmare, without any guarantee of 
speed or utility improvements. It still 
amazes me how often people think that 
CP/M never really existed, or better yet 
that DOS will be the first multi-user 
system, whoops, what happen to MP/M 
and CP/NET, guess Just figments of our 
imagination. 

Oh well, some people never learn. 
Thanks. Bill. 

Dear Bill: 

Here's a column from May Computer 
Shopper. Seems like this is something 
you should know about; I sent your ad- 
dress to Stan Veit. 

Sincerely, Steve Brown, WSB Enter- 
prises, Houston TX. 

Thanks for the copy Steve, I let my Shop- 
per subscription go many years ago when 
it became a PC sales only magazine. 
The article you indicated is Stan Veit 's 
TECH SECTION where he talked about 
"Endangered Software " and mainly how 
people are forgetting that other systems 
are used by many people like us. I think 
your interest was the fact that TCJ was 
not mentioned by Stan. Well, I am a 
little surprised too, since he and I talked 
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last year about him buying TCJ. We 
didn 't do the deal, because his objective 
was to turn TCJ into a "beginners PC 
user" magazine and thus tailing off the 
only magazine supporting these older 
systems v>hich he says no one is support- 
ing. 

Maybe Stan is having second thoughts 
dfout these older systems, since I have 
not closed down TCJ as he thought I 
would if I didn 't go mostly PC based 
articles. ProcAly, the problem really is 
his contract witii Ziff Davis and their 
editors unwillingness to let him really 
say what he wants, which I hope would 
be more about us, but then Elliam Assoc, 
which he tUd mention, sends aftyer tell- 
ing about us with each of his orders. To 
add more fuel to this mess, I have started 
advertising in the classified section of 
the shopper, where we will see if any- 
body reads that part anymore. 

Again, thanks and let me know if you 
find anymore areas I need to know about. 
Bill Kibler. 

Dear Bill, 

Enclosed jdease find a check for $44.00 
to cover the next 12 issues (two years) of 
The Computer Journal. I first sid>sciibed 
to TCJ at the urging of Chuck Stafford, 
CKG (Chief K^pro Guru) and HPHC W 
(High Priest anaoung Highly Certified 
Wizards); it was one of the many pieces 
of sagely advise I got from him. 

I think providing suppwt for the older 
PC/XT platforms is a good move. These 
systems, like their SS-SO and S-100 bus 
predescessors and compatriots, have, in 
turn, been abondoned l^ their manufac- 
turers. A great many people still depend 
on these machines and their relative 
abundance and low-cost makes them 
great "hobbyisf systems. 

The Computer Journal is a great collec- 
tion of material. It reflects the care and 
varied interests of each of the Contribut- 
ing Editors. Having served as Bulletin/ 
Newsletter editor for various archaeo- 
logical organizations, I know how much 
woik is required to produce something 
as large as TCJ as a one-person show. 
Ignore the occasional Letter to the Edi- 



tor complaining about typos, punctua- 
tion, and the choice of colors for the 
covers. These comments, although I'm 
sure well meant, miss the mark. It's the 
information and ideas that are impor- 
tant, not the occasional typos or mis- 
placed quotation mark. 

Cheers, Richard Estabrook, Tampa, FL. 

Thanks for those words of support Rich- 
ard You are correct on the work load 
around here and hopefitlly Chuck will 
be able to help me out soon. Running 
TCJ really is a full time Job, yet the 
money is not there to do that. Sol try as 
hard as J can, and sometimes must plain 
old stop and send the issue to the printer. 
I do that knowing it is the only way to 
get six issues a year done and still handle 
all the address changes, new subs, and 
back issue orders. The paper work side 
easily consumes 60% of my time. If our 
readers renewed on time and I didn 't 
have to send out so many notices and 
flyers to get them to renew, I would 
proably be able to catch a few extra 
mistakes and typos. 

On Chuck being a CKG; well he tries 
hard to help our Kaypro users out. Like 
me, Chuck does other things and can 't 
always be the perfect source of informa- 
tion and services, but at least he is try- 
ing. Yes, the PC/XT has been abandoned 
and interestingly enough their cost are 
now less than CP/M systems. At the last 
swap I saw complete XT's going for $5 
and $10 each (monitors extra). So for 
collectors of old systems, stay with any- 
thing but XT's right now, CP/M systems 
are worth more. 

And thanks for the letter and renewal, 
Richard Bill. 

Dear Editor: 

This letter is a follow up to n^^ call on 
your 800 number. I buih a data link that 
I operate between a Color Computer 3 
and a PC. Evidently just about eveiy PC 
made can operate COMl at high speed, 
which the commercial system "lapUnk" 
usestotransferfilesbetweenPC's. When 
set to a 2 Mhz clock rate the CoCo-3 will 
reliably communicate at 57.6Kbaud. The 
next fastest PC rate is 115.2 Kbaud, 



which is just too much for the CoCo-3 
bit banger serial port. I put the link 
software in an unused CoCo cartridge 
and made a serial cable, making a veiy 
tidy package compared to the usual CoCo 
setup. 

NOTE: Since the CoCo serial port does 
not use standard RS232 connector you 
must make an adapter if you use a PC 
serial cable. 

The main Umitation is that 2 stop bits 
are needed, slowing transfer to a little 
over 5,200 bytes/second. By wiring the 
CoCo serial data input and interrupt pins 
together I have the ability to do serial 
port interrupt servicing. Even though 
you need one character to initiate an 
interrupt it represents a delay of less 
than 200 microseconds. The CoCo-3 
starts at low speed when power is ap- 
plied, so the cartridge software relocates 
itself and sets things up to fiill RAM and 
high clock speed. The routines take about 
2 Kbytes, but the benefit is that down- 
loading software from the PC is very 
fast. 

I like machine language programming 
on th CoCO. The 6809 CPU is easy to 
use and the computer has no cycle steal- 
ing. What you see is what you get. 1 
wrote a small monitor that fits up against 
the I/O routines at the end of memory 
and modified the Motorola freeware PC 
to 6809 cross compiler to turn out a true 
binary file. 

There is still a lot of room for 
improvments, but I achieved my goal, 
which was to prove to myself that there 
is no real barrier to using an obsolete 
computer like the CoCo with the more 
modem PC. With a fast data link it is 
almost possible to forget that you are 
using another computer with the PC 
acting as an intelligent terminal. The 
trick is in eliminating the pshychological 
banier presented by long download 
times. 

Yours: Frank Wilson, Tomales, CA. 

Your serial interface is an excellent ex- 
ample of what many of us here at TCJ 
have been saying about PC 's and Older 
systems. You showed how learning as- 
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sembly and using it on an older system 
really isn 't very hard to do. You also 
provided a good use for PC 's, mainly as 
file servers, a good compromise of prod- 
ucts. 

I am not as sharp on CoCo 'sasi would 
like to be, but I got the impression they 
use a standard serial port device and 
weren't bit banging I/O lines, am J 
wrong? Maybe you could consider a 
fuller article with your assembly code 
for the CoCo and what are you running 
on the PC? I know you must be using 
something of your own, since most stan- 
dard PC based serial programs limit 
speeds on the slower XT to 9600 MAX 
(althought they can do higher as you 
said) Thanks for the food for thought 
and good luck with your next assembly 
project. Bill. 

HeUo Bill; 

I look forward to receiving TCJ to see if 
there are any new 8031 articles. While 
not the most powerful controller around, 
its ease of use rate high with me and I've 
been tinkering around with it. One of 
the big hassles is EPROM programing. 
My code is never right the first or second 
times anyway and it kept me from 
begining many rpojects. I put together 
the accompanying circuit to bypass this 
aimoying effort. 

I used 0. r perfboard and soldered wire- 
wrap wire (it goes faster than you think). 
It is mounted and wired to an existing 
card in the PC. The cable is 3 ft. (24 
conductors) of the grey flat stuff (an' old 
hard drive cable). On the 8051 Single 
Board Controller end of the cable, I sol- 
dered the wires to the top of a 28 pin 
socket. It plugs in place of the EPROM. 
I brought the 5 volts through the cable so 
I don't need a power supply for the SBC. 
A reset button and a 5 volt (470ufd/16V) 
line filter c^ were added too. The IC's 
are 74LS off those junk boards. If you 
need less than 256 bytes of RAM- 
0*ROM, you can eliminate all the A8, 
A9 and AlO inns on the RAM (Vth 
using a 6116 RAM) to + or gnd (or a 
switch and use different blocks ofRAM). 

To use the RAM-EPROM run DEBUG, 
Load a program, like FLASH.BIN, Move 
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it to D800:00 ( M 0100 xxxx D800:00 
where xxxx is the prog length) and push 
the SBC reset button. A sn^ !! the E 
command lets you change bytes instantly. 
Other Debug commands, like the Func- 
tion keys, save you keystrokes, and per- 
mit you to save changed programs to 
disk. You have to Move the program 
bade to the Debug load location in order 
to save it. 

I look forward to playing with the in- 
struction set without it being a BIG deal, 
and have many projects in mind. I really 
believe others would enjoy this also. 

By the way, did I miss Tim's "data ac- 
quisition system" as mentioned in #47? 
Could you tell me where to find it? 

Have fun. Ken Willoughby, Lark^ur, 
CA. 

Thanks for the circuit and project, Ken. 
Well I can also state how great it is not 
to bum EPROMs. I built one for my S- 
100 system based on a Microcomputer 
Journal article some years back You 
can do the same things using CP/M as 
with DOS and I am sure with any other 
of the small systems. I even have an 
EPROM burner that has the option to 
act as an EPROM emulator. Sure makes 
trying out little ideas a snap! 

As to finding Tim 's article, I think it got 
lost in my taking over and Tim getting 



CABLE HEAOER 



tons of work dumped on him. Tim 
promissed to start suppling articles just 
as soon as his new house gets done be- 
ing built (think he is the contractor on 
this project). If his house is going as 
well as some friends did, we might see 
an article this Christmas (building your 
own home never seems to end). I have 
been trying to get others to cover the 
8051 and 6805 field, but all too busy to 
do any writing. 

So thanks again and what is your 8051 
project? Bill. 

Dear Bill, 

Several items to cover in this letter. First, 
and most important!, here's my renewal. 

Next, I noticed your request(s) for stuff 
for the Microlog CPM card. There were 
at least two models made, which I will 
call I and II. The I card has only 64K of 
ram on it The II card has room for 384K 
and a battery backed clock/calendar. I 
have the manuals for both, and software 
for the n. The n software has all sepa- 
rate programs/drivers for the extra fea- 
tures that the I card lacks (clock, PC 
ramdisk, etc.), so I would guess that the 
actual CPM part should work on both. 
Whichever model you have, I'd be glad 
to copy what I have for yoa HOWEVER, 
you may not want to waste your time. I 
use Z80MU, a shareware type of emula- 
tor, occasionally. I also have ZPEM, an 
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emulator (which specifically emulates 
the Kaypro. Heath H89, and the 
Osborne). ZPEM came with MEDIA 
MASTKt, a poor imitation of Uniform. 
It (Media Master) barely gets the job 
done — I wish I'd bought Uniform in- 
stead. I haven't tried ZPEM, but authors 
are extremely impressed with it. There 
are others tfiat lode promising. One, 
ZSIM, actually loads (boots) off of real 
CPM. disic if you give it one. 

To get back to the Baby Blue card. In the 
docs of one of my emulators there is a 
scathing criticism of " some systems 
actual require that you bind a header to 
the CPM programs before you can run 
them...". They are referring to the 
Microlog card. In order to run a pro- 
gram you must "biiKi" a header to it. 
Actualty the header is a shell that handles 
the emulation. It turns your (DPM COM 
file into an EXE file. As soon as the 
program is finished, you're back in 
MSDOS — you never see CPM! Strictly 
q>eddiig, it's more of a converter than 
an emulator. When I read that in the 
manual, I just put it back on the shelf 
(got it at the microscopic local ham fest). 
Like I said, you're welcome to whatever. 
But Z80MU is quite good. It even has 
REZ-like disasm built in (same com- 
mands as Ward C's Resource). If you 
run it on a, s^ 33 Mhz AT, you get 
re^)ectaUe performance. My 12 Mhz At 
gives a Z80 speed of 1.8 Mhz. 

A possibly viable alternative is for some- 
one to write/adapt a real time CPM BIOS 
for the card. It doesn't look hard, since 
it uses dual pwted RAM for commimi- 
cations between the PC and the Z80. 
Considering the very heavily documented 
CBIOS's such as the Xerox 820 I & II, 
it should actually be quite easy for some 
whiz out there. THEN up the speed of 
the Z80 chip, and you'd have a real 
screamer. 

Next item. Some years ago, I hooked up 
a Western Digital 1002-05 up to a Com- 
modore VIC-20, then a C64, then a C128. 
I wrote a low level formatter in basic and 
formatted a 10 meg hard drive. The in- 
ter&ce is very simple, one chip, since 
the 1002 series hard disk controllers are 
meant to be hodced directly to a bus 
(they use tri-states). All I did was use a 



few inches of ribbon cable, an old game 
catridge for the card edge (game car- 
tridge still works), and a single inverter 
chip. Seeing as how 1) my Kaypro 10 
uses the same controller (1002-HDO), 2) 
since subscribing to Genie I've noticed a 
resurgence of interest in CP/M on the 
C128, I've in mind writing an article on 
the above (C64/C128-1002-05). What 
do you think? I'd been holding off writ- 
ing you but the article on the 6526 in the 
latest issue kind of brdce the ice. 

I've been using a C64 CPM catridge for 
years, and with a very small mod to the 
cartridge and a minor mod to the soft- 
ware I'll describe below, people with the 
CPM catridge can be up an nmning with 
up to four hard drives of any size. It 
sounds weird to front end a C64, but the 
CPM catridge runs a 1 Mhz Z80, just as 
fast as many older CPM systems still in 
use now. (Apple Z80 cards are still in 
use.) 

Some years back I purchased a kit from 
Emerald Microware, called the Winches- 
ter Connection (Wincon). I don't know 
if they still sell it (I'll check). The kit 
allows you to hook up a hard drive to 
almost any CPM system (CPM 2.XX 
only). It works quite well and I've sold 
several of my fiiends on it in the past 
(naturally they made me do the installa- 
tion). But I've never seen an article on 
it. There was a review on it, then an 
article on a home brew S-100 look alike 
(no drive though...) in Micro Cornuco- 
pia, but never an article on how to in- 
stall the Emerald Microware kit. This 
kit is a real life saver to old CPM sys- 
tems! ff you're interested I'd like to write 
one, because even if it isn't made any 
more, the kit includes a schematic, and 
since I bought both bare and stuffed 
boards — quite a simple interface — 
something might be worked out on a 
source (vis a vis the copyright thing). 
Also it looks possible to load the modi- 
fied Emerald Microware driver as CPM 
Plus (3.XX) RSX. I saw a piece of soft- 
ware on Genie to do just that — load a 
CPM 2.XX program as a CPM Plus 
Resident System Extension, thereby al- 
lowing users of CPM Plus (such as the 
CI 28) to take advantage of this jewel. A 
special note though, users of anything 
other than a Z80 will need a modified 



driver (re 8080, 64180, 8085, etc.) I've 
done some of the work already, having 
rezzed the Wincon low level format util- 
ity. 

Some other possible — shorter — sub- 
jects are: using the spare parallel port on 
the Xerox 820-n, using the SASI host 
adapter on the same, for other than SASI. 
By the way, the Xerox 16/8 (an up- 
graded 820-11) also uses the 1002 series 
controller, as does the Panasonic Senior 
Partner and the Seiko 8650 multiuser 
computer. 

Thanks for putting out my favorite maga- 
zine (since Micro Cornucopia) — thanks 
for all the hard work. 

Douglas Ross. 

/ have had several conversations with 
Chuck Stafford on this very topic. He 
has been looking for ways to replace 
failed Kaypro interface cards. Our se- 
ries on IDE drives was also to get people 
to consider repairs using them instead 
of the harder to find 1002 cards. I guess 
what I want to know (and our readers 
too) is how did the kit work? What soft- 
ware changes were needed? But please 
check on their availabiltiy and rights to 
redo their product if they aren 't willing. 

Your suggestion is just what I had in 
mind for changing the Baby Blue soft- 
ware. I saw the header stuff and said 
what a waste. Your right too about emu- 
lators, and I am sure by now you have 
tried MYZ80 which works very well. Jay 
Sage is planning on writing a review of 
Z80 emulators when he can get the time 
free to do so, but it appears your expe- 
riences might be nice to see in writing as 
well. 

Any case Douglas, thanks for the com- 
ments, and how about those articles now 
that you got my interest (and attention) ? 
Bill Kibler. 

From: K.0WEN2 

To: B.KIBLER 

Sub: The possible article... 

A fiiend at work brought me a com- 
puter, a Chameleon by Seequa of An- 
Continued on page 4/ 
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By Ronald W. Anderson 
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68xx/68xxx Support 

6809 Assembly & Flex 



I thought I would start this time with some honest to goodness 
6809 topics. First let me give you the name and address of a 
staunch 6800 and 6809 user that I have been trying to help with 
an old 6809 system that refused to work. 

John Fiorino 
518 - 85th Street 
Brooklyn, NY 11209 

John tells me that he wrote to all of the advertisers from old 
copies of '68 ' Micro Journal, and received only a few replies, 
mostly saying the companies don't support FLEX anymore. 
John would be interested in corresponding with anyone who 
has similar systems and wants to discuss them. 

John found and repaired a problem in his serial port board, but 
the system wouldn't run, though the serial board runs in 
another system now. He sent me his MP09A processor board 
several days ago. I ^nt an hour after work (where I have a 
6809 system) trying to find a problem. After noting that there 
were not any chip select pulses getting to the Monitor ROM, 
I found two or three feed-throughs (vias in the parlance of PC 
board manufacturers) that didn't conduct. 1 soldered wires 
through them and filled all the others with solder making sure 
it flowed on both sides of the board. Still no qieration, though 
all the address and data lines seemed active and there were now 
chip selects getting to the ROM with the monitor program. 

Still no monitor pronq)t on the terminal. I spent a lunch hour 
sw^q)ing chips from a working identical board. When 1 fin- 
ished sw{q>ping every chip between the two boards (one at a 
time with a test of the woiking board each time) the working 
board still worked with all the chips from the non-working one 
and the non-wotking one still did not work with all the chips 
from the working one. I ran out of time but brought the board 
home for a good visual inspection to look for foil breaks and 
bridges. Continuity testing has not found any more open con- 
nections, but then all it takes is one! A little while later I 
decided to get out an old toothbrush and the isopropyl alcohol 
(92% Isopropyl rubbing alcohol from the local drugstore) and 
clean the rosin off of the board (the solder flux). I found a 
solder bridge between two pads. Unfortunately the board still 
didn't work. Later I noticed that the molex connectors had 
been damaged a bit. The contacts didn't spring enough to close 
the openings in the connectors, and I thought perhaps they 
didn't make good enough contact with the molex pins on the 



motheiboard. 1 used up a roll of Solder Wick carefiilly remov- 
ing the connectors and replacing them with some imused ones 
that 1 had. Still "nada". Ay caramba! Porque no trabaja? 

Of course in the process of testing the boards I turned my 
system on and off dozens of times and then discovered that I 
had blown my system disk that was left in a drive with the door 
closed. 1 wonder fi^quently why I am so dumb! I didn't think 
of it because I wasn't trying to get farther than the SBUG-E 
monitor prompt. No matter. I restored it to woridng order fix>m 
a backup. The disk needed to be cleaned up anyway. I sure wish 
I could find the bad connection though. B^ the way, though the 
PC family won't trash a disk left in a drive if you turn the power 
off and back on again, that procedure is a definite no-no with 
the old SWTPc systems. Somehow, on power up, the drive can 
write a byte or two in the middle of the directory or system 
information sector and the disk is basically scrap until it is 
reformatted. 

Assembler - 6809 

I've been putting this off for months, but hoe I am and the 
subject this time is going to be asseihbler programming on the 
6809 running the FLEX or SK^DOS (grating system. Early 
versions of SK*DOS for the 6809 were caUed STAR DOS and 
you might run across an old disk or manual that references it 
that way. Peter Stark had to change the name because someone 
else had used it previously. Obviously the name came fi:om 
STARk, so the duplication was perfectly innocent. 

Flex was supplied with a user manual and an "Advanced 
Progranuner's Guide". It is the latter that will concern us here 
since writing assembler programs requires inter&cing to the 
operating system unless you want to write your own code to 
deal dirsctly with a serial or parallel inter£ice. In the present 
case, after thinking long and hard about how to go about 
presenting the whole instruction set of the 6809 and all the 
addressing modes, I decided that would not be the best w^ to 
go. Instead, I am going to start writing some sinq)le programs 
that do something usefiil. 

As we move along, we'll look at the v/ay you interfiice with 
FLEX and at how various addressing nxxles work, but this way 
we can learn a little at a time and it won't all be boring theory 
for 8 months before we get around to doing scxnething usefiil. 
Besides, I think from my own experience, I learned more from 
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looking at assembler code written by someone else and first 
trying to understand it, second making small modifications to 
sec if I could make them work, and finally getting brave 
enough to try writing a program for myself fi-om scratch. 

As I write this, I am using a new old toy. I have been doing 
some consulting for a customer that I have been associated with 
■for so long, that I think of him more as a friend than as a 
customer. In late April, bill was in Detroit for a conference, and 
I reminded him that Ann Arbor is only a 45 minute ride from 
Detroit, so he came for a visit and we had a nice evening out 
for diimer. At any rate. Bill has had me working on getting his 
old 6809 programs and a very large set of data files (over 100 
Megabytes) moved over from old 6809 8" floppies to his PC on 
3.5" floppies, doing some translating on the way. 

Since that project is about done. Bill has some 6809 hardware 
that he is winding down and won't need anymore. He promised 
to send me one of his old 6809 systems for, as he put it, "my 
museum". Us has done that, and I added a pair of 5" drives and 
connected ray trusty old Radio Shack TRS-80 Data Terminal 
(that is exactly what the label says). This terminal was bought 
at a R. S. clearance sale for $50, and it has the best and sharpest 
green monitor I have ever seen on a serial terminal. It is 
running 9600 baud (won't quite run reliably at 19,200). 

With this neat and reliable old con^uter setup, I am all set to 
do the series oa assembler programming. I have the equipment 
at woric to transfer disk files to my PC so I can get them into 
form for the column. The 6809 dii^ is readable on the Periph- 
eral Technology PT68K-4 system at work. That has a utiUty 
called MSWRTTE to write it to a disk formatted on the PC, and 
then I can read it in as a text file and include it in n^r coliunn. 
BefCHC I transfo it to the PC disk, I run it through a filter 
program that adds a linefeed after each CR, since FLEX 
terminates a line with a CR only and MS-DOS likes CR/LF. 

First thing I did was to try to set up a system disk and add a 
few little utilities. I don't like to go away for supper or a cup 
of coffee or whatever and leave the terminal's screen full of 
clutter, so I tried the CLS (CLear Screen) utihty on my system 
disk. It was written for a different terminal, a Wyse that uses 
ANSI terminal commands, so of course CLS printed gaibage 
on my screen and didn't clear it. This old TRS uses a simple 
^Z to clear the screea That is, the ASCII character decimal 26 
or Hexadecimal 1 A. Well, why not write a new CLS utility for 
the system since I am going to use it this way for the foreseeable 
fiiture? 

FLEX has a couple dozen "system calls" that are very useful 
particulariy when writing system utility programs. If you have 
one of those Advanced Programmer's guides, you can follow 
along. U not, just keep this series of columns available, since 
we'll describe every system call that is used. To clear the screen 
on n^r terminal, the conq>uter has to respond to my CLS 
command by loading and running a little program that outputs 
a ^Z to nty terminal and then returning to FLEX. 



We will need two FLEX calls. The first is called PUTCHR, and 
it simply outputs the contents of the A accumulator of the 
processor to the serial port to which the terminal is connected. 
PUTCHR is "called" by using an absolute JSR (Jump to 
SubRoutine) instruction to the subroutine in FLEX after load- 
ing the proper code into the A accumulator. We return to FLEX 
by doing an absolute IMP to the FLEX Warm start address 
called WARMS by FLEX. I use the word "absolute" here 
because there are also "relative" jump instructions on the 6809. 
Those are BRA for BRAnch, LBRA for Long BRAnch, BSR 
for Branch to SubRoutine, and LBSR for Long Branch to 
SubRoutine. U you are running SK*DOS you will find that 
these routines have different but very similar names. 

ff you have the book you will see that WARMS is defined as 
$CD03. In 6809 assembler, a dollar sign $ is the prefix for 
hexadecimal code. The FLEX calls all are up in this area of 
memory which is of course occupied by FLEX when it is 
loaded. The address for PUTCHR is $CD18. 

First a comment line: 

♦ Program to clear the screen of a TRS DT-1 terminal (^Z) 

Comment lines start with a star (asterisk) in the very left most 
column of the screen. Everything after the star and on the same 
hne is a comment and is ignored by the assembler. Now we 
define the FLEX call addresses: 

WARMS EQU $CD03 
PUTCHR EQU $CD18 

FLEX comes complete with a file called FLEXEQU.LIB which 
contains the equates for all of the system calls, but the library 
file is kind of big and we only need these two, so let's do our 
own. In this assembler all "labels" or names start in the first 
column of the screen. We are defining names to be replaced by 
hexadecimal values with these two lines. The EQU is an 
assembler "directive" that tells the assembler to assign the 
hexadecimal value to the name or Label preceding it. State- 
ments that equate a numeric value to a label are frequently 
called "equates". Having defined these, when the assembler 
sees the word WARMS, (meaningfiil to a programmer) it will 
substitute the value $CD03 (meaningfiil to the computer). 

Next we need an origin statement. This tells the assembler 
where to put the program in memory. All Flex utilities that are 
small enough load into a "Utility Command area" that is 
several hundred bytes long, and starts at $C100, extending to 
(I'm pretty sure) $C7FF. 

ORG $C100 

Note specifically that ORG is not a label or a name, but is an 
assembler directive. It starts anywhere AFTER the first col- 
umn. ORG must be followed by an address, usually done in 
hexadecimal though the assembler could handle the decimal 
value just as well. 
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Now we start the code. A program to be run under FLEX needs 
a label at the point where the code is to start execution when 
it is loaded by the FLEX binary loader. 



START LDA #$1A 



THIS TEXT IS A COMMENT 



START is a label. It again must start in the first column. LDA 
is the operation code meaning LoaD accumulator A. What 
follows the LDA opcode is the operand. In this case the # 
means "immediate". The $1A is the ASCII code for '^Z. The 
immediate sign means essentially "the code immediately fol- 
lowing this symbol". An opcode may or may not require an 
operand. For example COMA is the instruction to complement 
the contents of the A accumulator. In other words "invert" the 
contents. Change the 1 's to zeros and the zeros to 1 's. It doesn't 
need an operand. LDA, requires an operand. I would read this 
line as: Load A immediate hex I A. 

JSR PUTCHR 

Again note that JSR is an opcode and it is not in the first 
column. PUTCHR is the routine that puts the contents of the 
accumulator out to the terminal serial port. A subroutine is a 
section of code that has the operator RTS at the end, meaning 
ReTum from Subroutine. When that code is finished, the RTS 
causes execution to begin at the line after the one containing 
the JSR. We've cleared the screen. Now we have to return to 
FLEX so that familiar +++ prompt appears and we are ready 
to execute another coirunand or program. 

JMP WARMS 

After we output the clear command to the terminal we return 
to flex with this unconditional jump. You might think we 
should be done, but not quite. The Assembler requires us to tell 
it where to start execution of our program. 

END START 

Again note that JMP and END are not in the first column of 
the line. END START is an assembler directive that causes the 
program's transfer address to be set to the label START. Seems 
sort of dumb for this small program, but some programs don't 
start execution at the first line of the code, and many have a 
large number of "labels". By the way, the label START here 
can be whatever. Some programmers like BEGIN. As long as 
the label that follows the END directive is the label at which 
you want the program to start execution, everything is fine. 

Here is the whole program: 

* Program to clear the screen of a TRS DT-1 terminal C^Z) 

WARMS EQU $CD03 
PUTCHR EQUSCD 18 

ORG $C100 



START LDA #$1A THIS TEXT IS A COMMENT 

JSR PUTCHR 
JMP WARMS 
END START 

Blank lines are permitted in a program. If there is any text on 
the line that is a comment the star must appear in the first 
column. There are some rules that apply to program listings. 
Spaces separate "fields" in the program source code. The first 
field starting in the first column is the label field. Next is the 
operator field, then the operand field, and finally the comment 
field. Comments after the operand are valid up to the end of the 
line. 

It is permissible to add more spaces between fields. Some 
assembler programmers format their source code with extra 
spaces so it would look something like this: 

* Program to clear the screen of a TRS DT-1 terminal (''Z) 

WARMS EQU $CD03 
PUTCHR EQU$CD18 

ORG $C100 

START LDA #$1A THIS TEXT IS A COMMENT 
JSR PUTCHR 

JMP WARMS AND ANOTHER 
END START 

While this format is a lot easier to read, it takes up more space 
as a text file, and the assembler will format it's output listing 
if you want to read that. I've run the assembler on this code and 
saved the output listing to a file. I've created a label for the CLS 
instruction also. Here is the result. 

* program to clear screen for the Tandy DT-1 00 



OOIA 

CD18 
CD03 



CLS EQU $IA 

PUTCHR EQU $CD 18 
WARMS EQU$CD03 



CIOO ORG $CIOO FLEX UTILITY AREA 

CIOO 861 A START LDA #CLS 

C102 BD CD18 JSR PUTCHR 

CI05 7E CD03 JMP WARMS 

END START 

ERROR(S) DETECTED 

The interesting thing about this output, which can go to the 
screen or to a printer, is first that it is formatted, and that it lists 
the hexadecimal machine code instructions that it has gener- 
ated. The program, first of all, is just eight bytes long. That, of 
course is because it is little more than a couple of system calls. 
The first column of this listing shows the memory address at 
the start of each line of code. We set ORG to be SCIOO so the 



The Computer Journal / #69 



program starts at that address. The code for LDA # is $86. We 
defined CLS as $1A and that is what appears as the operand.. 
BD is the JSR code and the CD 18 is the PUTCHR. 7E is the 
JMP absolute code and it is followed by the address to jump to, 
$CD03. The assembler Usting doesn't show how the output file 
looks, but how the program will load into memory. The file 
contains scmie housekeei»ng bytes, the first memory load ad- 
dress, the number of bytes, and the transfer address at the end. 

As "hcnnewiHk" if you have the Advanced Programmer's guide 
yoo migltt kiok through the system calls sudi as GETCHR and 
PSTRNO and see what they do. Don't bother getting into the 
file handling routines, since we won't get that fiir for a while 
yet We'll practice for a while writing programs to do things 
in memory and report them to the terminal. After that becomes 
Mtfy routine we'll write one that opens a disk file. That is 
scary at first because it is possible to clobber your system disk 
and the like. We'll talk about precautions to use before testing 
a first program that handles disk files. 

The assembler will assemble this program when given the 
command: ASMB CLS. Sometimes we want to modify the 
action of the assembler. To eliminate the listing out to the 
terminal, eliminate a symbol table output and erase an old 
ou^Mit file if it exists, the command would be ASMB CLS 
+LSY. If you make an error, the assembler will flag it for you. 
The largest single enox that I make is to forget to indent a line 
that starts with an opcode and not a label. 

By the way, if your terminal takes multiple "characters" to 
clear it, you can repeat the LDA # and the PUTCHR call as 
mai^ times as you like. For example maybe your terminal 
needs the sequence ESC * to clear the screen. You can define 
ESC as $1B and use LDA ESC. You can use a character and 
the assembler will use the jN'Oper ASCII code, by using an 
apostnq>he before the character. LDA #'* will get you the star 
or asterisk ASCII code in accumulator A. The changed part of 
the program would look like this: 

ESC EQU $1B 

START LDA #ESC 

JSR PUTCHR 
LDAr* 
JSR PUTCHR 
JMP WARMS 
END START 

The program has gotten "bigf'. We've gone fi-om eight bytes to 
twelve if I count correctly. FLEX will use a whole 256 byte 
sector for this, so even if you have to send your terminal a 
dozen characters, it won't occupy any more disk space. 

Let's talk a little about vocabulary. The code shown just above 
the last paragraph is called a "Soiu-ce Listing". That is, it is the 
file that the programmer generates in words. When it is as- 
sembled the result is what we call an "Object file" or "execut- 
able file". 



I am reminded that I once had a difference of opinion with a 
reader of one of my early columns. I had said something about 
liking a high level language for large programs. This reader 
disagreed and thought I ought to use assembler for everything. 
Further discussion showed that he thought 100 bytes was a 
large program! I was thinking of anything over a coi^le of K 
of object code. I deal regularly with 32K 6809 object files 
programmed in PL/9. 1 would not waitt to have to maintain 
these in AssemUer, though at this pmnt, I ooidd. AssemUer 
has it's place in the scheaie (tfthingi^ however wfaeie Speed is 
an absolute necessify;«r where yw ^nif soiaety^ soptt p4a 
a simple job. 

Before I go on to other topics, let's summarize what we've 
covered in this simple program. I haven't used the term ad- 
dressing modes, but we've used two. 

LDA #$ 1 A Immediate addressing — $ 1 A is placed in ACCA 
(ACCA is a standard abbreviation for accumulator A) 
Immediate addressing is used for constants hard coded 
into the program. 

JMP $CD03 Extended addressing. The operand is a 16 bit 
value, the address to which to jimip. 

LDA $1234 Extended addressing — the contents of address 
$1234 are placed in ACCA. This mode is used to access 
variables. You would probably use a label that was 
"equated" to $1234. 

LABELS are assigned values either by means of "equates" 
or by their position in the program. In 6809 Assembler 
a label can represent a 16 bit "word" value such as an 
address, or it can represent an 8 bit "byte" value as 
assigned by an equate statement. 

CLS EQU $1A — assigns the value $1A to the label CLS 

START LDA #CLS — the START label immediately follows 
the ORG $C100 directive. Labels in the program label 
field have the value of the program counter at that point. 
Since we set the program counter to $C100 with the ORG 
directive, START has that value (see output listing). 
Labels can be assigned values by one other means that we 
haven't used yet, the RMB (reserve memory byte(s)) 
assembler directive. 

In case you are wondering, the opcode for LDA # is different 
from the qxxxie for LDA extended. The assembler can tell 
from the operand which is meant, and it generates the appro- 
priate machine code. 

Miscellaneous 

I've just been writing some drivers for an LCD display onto 
which we are going to put numbers and text in graphic mode. 
My first shot was on a PC in C, and it is acceptably fast. I am 
presently working on the 6809 version in PL/9. My fu-st try at 
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a translation from C to PL/9 was a bit slow in execution. It took 
about four seconds to fill the screen with text. After some 
(q>timization of the PL/9 code it took just under 1 second. I may 
well have to write some of the procedures as "asmprocs" in PL/ 
9 to try to increase the screen writing speed. PL/9 nicely allows 
embedded assembler code and we have written a utility called 
ASMGEN that converts an assembler output listing (like the 
one above with the opcodes) to the format required by PL/9 for 
an assembler procedure. 

One thing that becomes obvious is that I am going to run out 
of program space in the 6809 system. One thought I had today 
was to try to compress the bitmap character images in my font 
table. Of course then I am slowing the system down as a 
penalty for saving memory. I wrote a quick program to read a 
bitmap for an 8 times normal size number 5. The bitmap is 280 
bytes. I thought I would count strings of O's and I's starting 
with zeros and alternating, outputting the count to an output 
file. As long as there are fewer reversals than bytes of bitmap, 
I would come out ahead. The 280 byte bitmap for the 5 was 
decreased to 137 bytes, just a bit better than a 50% compres- 
sion. The compression procedure is simple, and the inverse 
expansion procedure would be about the same. I would expand 
the bitmap and then write it to the display. 

Another thought was an algorithm to magnify a smaller font 
bitmap by a factor of 2, making each pixel in the original four 
in the larger map and then apply an algorithm of some sort to 
smooth tte outline by turning off pixels on outside comers etc. 
I decided that the smoothing procedures would probably take 
up more space than I would save, and again would severely 
slow down the process. A few tests with bitmaps filled in on 
square ruled p^)er convinced me that the rules would be 
conq)lex and that there would have to be a number of excep- 



tions in order to come up with anything nearly as good as a well 
designed character at the higher resolution. 

I finally hit on the simple scheme. The LCD controller has 
some extra memory. I can store my bitmaps in an EPROM on 
the controller and read them fix)m there when I write the 
screen. All my maps occupy slightly more than 8K, and I have 
32K available on the controller board, it will be a little slower 
to read the data but not much. This immediately doubles my 
available program memory. If I had to, I could put some of the 
driver routines in the controller memory too. At any rate, I had 
fun contemplating and testing conq)ression ideas and character 
outline smoothing algorithms. 

The Numbers Game 

Since I have a few K of text space left here, I thought I'd 
mention something that gripes me a bit. Traditionally, IK is 2 
to the 10th power or 1024 in the field of coiiq>uting. 1 Meg is 
IK times IK or 1,048,576. RAM and ROM memory is always 
specified this w£^. 1 Megabyte of RAM is 1,048,576 bytes. I 
would therefore expect a 100 Megabyte drive to hold 
104,857,600 bytes. I find that all the hard drive manu&cturers 
would call this 105 Megabytes, or at least 104. Nfy new 420 
Megabyte drive actually is a 406 Megabyte drive in terms of 
1,048,576 byte Megabytes. Of course when you format this 
drive it reports something on the order of 420,000,000 bytes 
fi%e before you copy any files onto it. The 170 megabyte (bive 
that I use has an actual capacity c^ 162 megabytes. I resent the 
almost 5% inflation of the actual drive capacity calculated the 
way computer folks have always calculated K and Meg. I 
would not be unhappy if the drive manu&cturers would switch 
terms and call their 170 megabyte drive a "170 million byte 
drive", but it ought to be 162 megabytes. 
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PROGRAMMING MODEL 

As siKwn m Figim 4, the MC68aa adds ihrM registets to 

the sat availaM in tha MCeaOO. TM addad rsgistafs include 

a diratn page ragistef. the usef stack pointer, and a second 

mdax register. 

ACCUMULATORS (A, B. Dl 

TM A and B lagistars are general purpose accumulators 
which are used for arithmetic caiculatiofts and manipulation 
of dau. 

Certain instructions concatenate the A and B registers to 
form a smgia 16-bit accumulator. This is referred to as tha 
register, and is formed with the A register as the most signifi- 
cant l)vte. 

DIRECT PAGE REGISTER (DPI 

Tha direct page register of the M0BBC6 serves to enhance 
the direct addressing mode The content of this register ap- 
pears at the higher address outputs IA8-A1SI duhng direct 
addressing irvtruction execution. This aMows the direct 
mode to be used at any place in memory, under program 
control. To ensure MffiX compatibility, all bits of this 
register ere cleared during processor reset. 
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INDEX REGISTERS IX. Y) 

The inclex registers ar« used m indexed nwde of address- 
ing. The l^-bit address in this register lakes pan in the 
calculation ot etiective addresses. This address may be used 
to point to data diractiy or may be modified by an optional 
constant or regnier offset. During some indexed modes, the 
contents of the index register are incremented or decrement- 
ed to point to the next item of tabular type data. All four 
pointer registers (X. Y, U, S) may be used as index ragisiers. 

STACK POINTER (U.S) 

Tha hardware stack pointer (SI is used automatically by 
the processor during sut>routine caHs and interrupts. The 
stack pointers of the MC8809 point to the top of the stack, in 
contrast to the MC6800 stack pointer, which pointed to the 
next tree location on the stack. The user stack pointer lU) is 
controlled exclusively by ttw programmer. This aHows 
arguments to be passed to and from subroutines with ease. 
Both stack pointers have the same indexed mode addressirtg 
capabilities as the X and Y ragisiers, but also support Push 
and PuM instructions. This aNows the MC6809 to be used effi- 
ciently as a stack processor, greatly enhancing its ability to 
support higher level languages and rriodular programnung. 

PROGRAM COUNTER 

The program counter Is used by tha processor to point to 
the address of the next instruction to be executed by the pro- 
cessor. Relative addressing is provided aAooving the program 
counter to be used like an index register in some situations. 

CONOnxm CODE REGISTER 

The condition coda register defines the state of the pro- 
cessor at any given time. See Figun 5.* 



FIGURE 5 - CONDITION COOE RE6ISTB1 FORMAT 



CARRY FUG (C) 

Bit is the carry flag, arxl is uaualty the carry from the 
btrtarv ALU. C is also used to rapieeent a 'borrow' from 
subtract-like insmjctione (CMP, NEG. SUB, SSa and is the 
comptament ot tfte cerry from ttw binery ALU. 

OVERfLOW FLAG (V) 

Bit 1 is Hw overflow flag, and is set to a one bv an opar*- 
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overftow. This overflow is detected in an operation in viMch 
the carry from the MSB in the ALU doM not match the carry 
from the MSB- 1. 

ZERO FUG (Z) 

Bit 2 is the zero Hag, and is set to a one if the result of the 
previous operation was identicaKv zero. 

NEGATIVE FUG (N) 

Bit 3 is the negative flag, which contains aatactty the vetue 
of tlM MSB of the raault ot ttie preceding oper a tion. Thus, a 
negetrve twoe-comptement reeutt wM leeve N set to a orte. 

i^ MASK {I) 

Bit 4 is the mo mesk bit. The processor witt not recognua 
interr upis fr om the (RQlmeifthisbitissettoa one Nfill. 
FFRQ, IRQ, RESET, and SW1 an aat I to a one. SWt2 and 
SWO do not affact I. 

HALF CARRY (HI 

Bit S is tha hatf-carry bit, and is used to indicaia a carry 
from bit 3 in tha ALU as a raauh of an 8-b(t addition only 
IMK or ADD). This bit is uaed fay Ae DAA inatniciion to 
perform e BCD dedmel add adiun operation. Tha state of 
this flag is undefined in aH subtract-like inatruciiortt. 

nRQMASKtF) 

Bit 6 is the HITl mesk bit. The prooeeeor wM not 
reoo g rwae i nterrupts fr om the PIRQ line if ttws bit is a one. 
TM. nVRS. SWI. end RESET aH aat F to a one. IRQ. SWQ, 
and SWQ do not affect F. 

ErVTIRE FUG (El 

Bit 7 is the entire flag, and wfwn sat to a orw indicatet that 
the complete macNna state laH the ragistars) was stackad, 
as opposed to tha subset state fPC and CO. Tha E bit of tha 
stacked CC ii uMd on a ratum from imerrupt (RTIl to deler- 
mina ttM axtant of tha unstacking. Tharetors, the current E 
left in the condition code register rapraaants past action. 
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PC/XT Corner 

by Frank Sergeant 



Oh, it was a joy using Forth to fool with a stepper motor. The 
project came together quickly as I tested a little piece at a time 
until I figured out how it woriced. 

Mental Modd of a Stepper Motor 

I start with a &irly simple mental model of a stq^r motor. As 
I see it, it is basically a cdlection of electromagnets that pull 
the motor shaft to a sUghtly new position. The idea is to 
energize only one or a few of the dectnmiagnets at a time, and 
in the li^ sequence, rather like a donkey chaang a carrot and 
being beaten with a \^p, to move it around and around. The 
motor has just two electromagnets — really two sets, where all 
in a given set are energized the same way at the same time. 
But, to keq> the explanation simpler, I may talk as if there were 
just the two electromagnets, rather than the two sets. With 
each electromagnet, you can either not energize it, or energize 
it so the North pole is on the "left" and the South pole is on the 
"right", or energize it so the South pole is on the "left" and the 
North pole is on the "right." To energize it, you pass current 
through it in one direction or in the other direction. 

How Many Wires 

Stepper motors come in several flavors. Really, you effectively 
have only two coils of wire in the motor, one for each (set of) 
electroniagnet(s). Thus, you can get by with 4 wires. Each coil 
has two ends and there are two coils. With this arrangement 
you need external circuitry to allow you to switch the flow of 
current through a given coil firom one direction to the other 
directioa An "H-bridge" is commonly used for this. 

Much more convenient is to have a motor with either 6 or 8 
wires. Although we still really have only the two (sets of) 
electromagnets, we now have two coil for each electi-omagnet. 
This does not give us 4 sets of electromagnets. In a given set, 
you either use one winding or the other winding, but never both 
at the same time. The whole point of this is to avoid the need 
for the H-bridge. With four windings, each with two ends, you 
have 8 wires. The six-winding motor still has 8 wires inter- 
nally, but two ends of each electromagnet windings are joined 
together for you. So, either 6 or 8-wire motors are equally easy 
to use. You could also have a 5-wire motor, where either the 
"ground" or the "positive" end of all four windings are con- 
nected together inside the motor. The motor I used has 8 wires. 
I connected one end of each winding together to form the 



common positive end, and selectively grounded one of each of 
the other 4 wires to energize a particular winding. 

My Motor 

My motor says ASTROSYN STEPPER, AST P/N 23LM- 
K005-P4, 7.0 V/PHASE, NO. T32865, Minebea Co., Ltd., 
Made in Thailand. I don't remember where I got it — possibly 
firom Tanner Electronics. 1 got several surplus, probably sev- 
eral years ago for about $5 each or so. With an ohm meter I 
found out which wires belonged to the same winding. Obvi- 
ously, with 8 wires there were 4 sets, one for each of the 4 
windings. However, 1 could not figure out how to tell which 
pairs of windings were for the same set of electromagnets. My 
plan was to ground one end of each of the 4 windings and 
connect the other end of each winding, one at a time, to +5 
volts, or so. I used a resistor to limit the current while I was 
fooling with it. My worry was that if I picked the wrong ends 
of a pair of wires for one electromagnet to ground, that which- 
ever of its two fiee ends that I coimected to 5 volts, would result 
in the same polarity. 1 still haven't resolved this worry. Any 
suggestions? Anyway, the motor was advertised as having 200 
steps per revolution, and when I give it 200 steps it goes around 
exacfly once, so 1 believe I must have it coimected correctly. 

The Motor Connections 

So, I've got 4 fi-ee ends and 4 ends connected to S volts. How 
do I turn on one winding at a time? For experimenting you can 
just touch the lucky winding to ground, but for real use you 
want a rather more convenient method. I choose the DS2003 
"high cunentA'oltage Darlington driver" chip from National 
Semiconductor. I think this is the same chip as the Sprague 
ULN 2003. It comes in a 16-pin DIP. It has 7 Darlington 
transistor pairs, which act as 7 switches, with a reverse-biased 
diode across each switch. There are 7 control inputs, one for 
each switch, which accept TTL or CMOS logic levels. A high 
closes the switch and a low opens the switch. The reverse- 
biased diode prevents the kick fiom the coil when the switch 
is turned ofi'from damaging the transistors. In case I don't get 
around to drawing the schematic, pins 1 through 7 are the 
control inputs controlling corresponding "ouQ)uts" on pins 16 
through 10. Pin 8 is ground. The "outputs" cmtput a ground, 
so to speak, when their corresponding control lines are acti- 
vated. That is, if pin 1 is at a logic low, then pin 16 is not 
connected to ground, but if pin 1 is at a logic high, then pin 16 
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is connected to ground. So, the four windings receive 5 voits 
on one end all the time, but we select one winding at a time to 
be connected to groimd aiid thus energize the winding. I used 
the first 4 switches to control the i windings. This gives me 
3 switches left o-^sr, for other purpose. . ml not quite enough 
for another stei^r motor. 

Sequence is Everything 

The trick is to energize the windings in the proper order to 
tease the shaft around and around. Let's call the 4 windings 
A, B, C, D. At first I thought there were 6 possible sequences 

ABCDABCD..., 
ABDCABDC..., 
ACBDACBD..., 
ACDBACDB..., 
ADBCADBC..., 
ADCBADCB... 

Since I didn't know which was the correct sequence, I figured 
I would try each of them and pick the best. Later, I reaUzed 
there were only 3 possil)le sequences with the other 3 just being 
the reverse of the first 3. So, one of the three would make the 
motor go in one direction. Reversing that sequence would 
make the motor go in the other directioa I didn't care which 
way we started, so 1 just had 3 sequences to test. 

Parallel Port 

I decided to let 4 of the PC's parallel port output lines control 
the 4 switches. Ordinarily the parallel port is connected to a 
printer. It communicates the data byte to the printer ovjr the 
8 data lines. A separate strobe line tells the printer when ti»e 
data is valid. The parallel port also has other handshaking 
lines and groimd lines. Ordinarily a "standard printer cfb's" is 
connected to the PC's parallel port. This has a ma« )B25 
connector on the end that coimects to the PC and a male 
Centronics 36-pin connector on tiie end that connects to the 
printer. I decided not to use that type of cable because of the 
difficulty of getting a matching female 36-pin connector for the 
stqyper motor circuit. Instead, I used a straight-through 25-pin 
male to 25-pin female "serial" cable. PC serial ports have 
either a 9-pin male or 25-pin male connector, and so take a 
cable with a female end. 

PC parallel ports have a 25-pin female connector, and so take 
a cai)le with a male end. Don't coimect your cable backwards 
and thus to a PC serial port! Anyway, using the serial cable, 
pin 2 through 9 are the data bits through 7. We'll just use 
the 1st four (pins 2, 3, 4, & 5). Pin 1 is the strobe, which we 
won't need. Pins 18 through 25 are grounds, but who knows 
if ail of them go through the cable (check ycur cable). Pick one 
of them for your ground. I think I picked #21. So, those 5 lines 



are all we need. The "serial" cable ought to be feirly cheap ($3 
or $4), Coimect pin 2 of cable to pin 1 of the DS2003 as follows 



"serial" 



pin 


DS2003 pin 


2 


1 


3 


2 


4 


3 


5 


4 


21 etc 


8 



Data line 
Data line 1 
Data line 2 
Data line 3 
ground 



then connect a 5 volt supply with the ground to DS20O3 pin 8 
and the 5 volt end to the common ends of the 4 stepper motor 
windings. Connect DS2003 pins 16, 15, 14, & 13 to the four 
loose ends of the stepper motor windings. You could put a 
current-Umiting resistor in series between the power supply 
and the common end of the motor windings, especially if you 
use a higher voltage supply. Your motor may vary, so it is safer 
to measure the resistance of your motor windings and figure 
out what amount of current-limiting you might want to pro- 
vide. 

Software 

I used Pygmy Forth version 1.4 for the following. The general 
ideas should work with any Forth for the PC. Pygmy can be 
downloaded at no charge fi'om various ftp sites, including 
oak.oakiand.edu, or from various bulletin boards, or I sell a 
bonus disk for $15 (in the U.S.) which includes the latest 
version plus some extras. 

First you need to know how to address the PC's parallel port. 
You commonly refer to the parallel ports as LPTl, LPT2, etc. 
The I/O addresses that correspond to each of these ari stored 
in a BIOS data area at the 8 bytes starting at address $0040:0008. 
LPTl is conunonly either $0378 or $03BC. Following is a 
Forth word to print the addresses of the 4 possible parallel 
ports. 

: .PORTS ( -) 

BASE® HEX 

$40 8 4FOR2DUPL@U. 2 + NEXT 2DR0P 

BASE ! ; 

BASE @ merely fetches the current value of BASE so we can 
change to base 16 with HEX. Then $40 8 puts the segment and 
offset address for the start of the BIOS data area onto the stack. 
The 4 FOR . . . NEXT marks a loop that is done 4 times. Inside 
the loop, the segment:o£fset pair is diq>licated with 2DUP, L@ 
is a long fetch that reads the 16-bit value stored at the 
segment:c^set address. U. prints this value as an unsigned 
number. 2 + increments the segment:offset address on the 
stadc to point to the next location. Finally, when the loop ends, 
2DR0P throws away the segment:of&et address that we no 
longer need and BASE ! restores the previously saved value of 
BASE. You can type this word to find what the actual parallel 
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port addresses are in your machine. As I mentioned, LPT 1 will 
probably be $0378 or $03BC. 

Actually, you don't need the word .PORTS. It is just for 
your geaual information. You don't need to know what the 
port address is, you just need to know where to find it. In the 
following, we will define a word LPT which looks up the port 
. address for you and stores it into a variable named 'PAR. 

VARIABLE 'PAR ( holds base I/O address for parallel port) 

'PAR is a variable which will hold tire I/O address of the port 
we decide to use. 

: LPT ( # -) 1- 2* 8 + $40 SWAP L@ 'PAR ! ; 

LPT is a word that finds the address of the port you want to use 
and puts it into the variable 'PAR. For example, if you say 1 
LPT the word LPT will lo<* up the address for LPTl: and 
store it in 'PAR. 

Next, wc need a way to write a value to the parallel port to set 
the lower four data lines which are connected to the DS2003 
chip. 

:LPT! (C-) 'PAR® PC! ; 

LPTl does the trick. Given a byte value on the stack, that value 
is written to the I/O port whose address is stored in the variable 
'PAR. PCI is the word that does the actual writing to the port. 
The P stands for port, the C indicates the value to be written 
is "character" sized (i.e. a byte), and the I stands for "store" and 
means we are writing _to_ the port, rather than trying to read 
finm it So, if we wanted to turn on the least significant bit of 
the parallel port, the bit that is connected to pin 1 of the 
DS2003 chip, we could say 

ILPTI 

if we wanted to turn on each of the 4 bits one at a time and then 
turn all the lines ofT, we could say 

ILPT! 
2 LPTl 
4 LPTl 
8 LPT! 
OLPTI 

We could even define a word to turn the motor off with 

: MOTOR-OFF LPT! ; 

Now we are nearly ready to do some serious playing. We will 
build a table holding the sequence we want to use to turn on the 
motor windings in the proper order. Wait, we don't know what 
that sequence is yet! Ok, we will DEFER a word that repre- 



sents the table we will use, once we figure out what the table 
should be: 



DEFER TABLE 

As I mentioned, there are only 3 possible sequences, 
build a separate table for each of the three: 



Let's 



CREATE TABLEl 
CREATE TABLE2 
CREATE TABLE3 



1 C, 8 C, 2 C, 4 C, 
1 C, 8 C, 4 C, 2 C, 
1 C, 4 C, 8 C, 2 C, 



( sequence) 
( sequence) 
( sequence) 



The first table says we will write a 1, then an 8, then a 2, then 
a 4 to the parallel port in that order. Then, one at a time, we 
point the word TABLE to one of the three possibilities and try 
it. For example, 

'TABLEl IS TABLE 

is how we would set iq) the word TABLE so that it would really 
execute the word TABLEl. 

Then, we might want to allow a variable delay to determine 
how fast we write values to the motor. We will declare a 
variable ON-DELAY to hold the number of milliseconds we 
want to wait between writes to the port, and we will initialize 
it to 100 milliseconds. 

VAIUABLE ON-DELAY 

100 ( milliseconds) ON-DELAY ! 

The key word we need is one to make the stepper motor take 
a single step. We will use the word STEP. Since there are 4 
different values we will write to the port to energize the motor 
windings, we will use the numbers 0, 1, 2, 3 as indexes into the 
TABLE to represent each of the 4 values. Essentially, giVen an 
index on the stack between and 3 which represents the _last_ 
index used. Then we iqxlate the index to the one to use for the 
current step and fetch the corresponding value fi-om TABLE 
and write it to the port. We will leave the index used this time 
on the stack so the next time we take a step that information 
will be available. Finally, we need to delay for a while. 

There is a slight complication. We might want the motor to 
turn in one direction or in the other direction. We will let the 
variable DIRECTION hold the value to add to the index we last 
used in order to give the proper index to use for the step we are 
about to take. The word FWD sets direction to the value 1. 
This seems to make since, right? If the last index used was 
zero, and we add the value in DIRECTION to it, we get the 
value 1, then next time when we add DIRECTION to it we get 
2. This works fine until the last index is a 3 and we add 
DIRECTION to it and get a 4. Utoh. What we really want to 
do is make the index cycle through the numbers 
0,1,2,3,0,1,2,3,0,1,2,3,... So we want to divide the number by 
4 and use the remainder. We use the cheap trick of 3 AND 
to accompUsh this. Thus 3 AND gives 0, 1 3 AND gives 1, 
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2 3 AND gives 2, 3 3 AND gives 3, and 4 3 AND gives 0, 
which is just what we want! 

There is one more sUght complication. What if we want to 
back up, to move through the table in the other direction. Well, 
we might start subtracting 1 from the previous index, but 
another way of doing it is to add 3. Once we do the 3 AND, 
we will find the index backing up just like we want. 

VARIABLE DIRECTION 

: FWD ( last - last') 1 DIRECTION ! ; FWD 

: BACK ( last - last') 3 DIRECTION ! ; 

: STEP ( last - this) 

DIRECTION @ + ( find the next index to use) 
3 AND DUP ( equivalent to 4 MOD) 

TABLE + C@ LPT! ( fetch value & write to port) 
ON-DELAY @ MS ; ( kill time) 

Notice how simply and pleasantly the above can be done in 
Forth. Of course, we might get tired typing the word STEP 
over and over, so we make a word to repeat it for us. Given a 
last index number and a count, STEPS is the answer. 



STEPS ( last #- this) 
FOR 7SCROLL 



STEP NEXT 



Saying 30 STEPS will take 30 steps and leave the last index 
number on the stack, so we could then say 200 STEPS to move 
a full revolution. Of course, we aren't yet sure which table to 
use, so trying 



word if you press the Esc k^. Or, if you press any other key, 
7SCR0LL stops and waits until you again press any key. 

Once you find the right table to use, you can throw away the 
other two tables, or save them in case you get a different stepper 
motor. You can change the value placed into ON-DELAY to 
vary the ^)eed of the motor. Here is an example of how to turn 
the motor forward a full turn, back a half turn, forward a 
quarter turn, back and eighth turn and then stop: 

FWD 200 STEPS 

BACK 100 STEPS 
FWD 50 STEPS 
BACK 25 STEPS 
[MOTOR-OFF 

Let's add one more word to set the iq)eed of the motor 

: SPEED ( # -) ON-DELAY ! ; 

This is great fim for demonstrating the motor. Note that we 
have built a motor control language with the following com- 
mands: SPEED, FWD, BACK, STEP, STEPS, MOTOR-OFF. 
Hell, even someone who didn't like Forth might enjoy using 
such a pleasant and interactive stq>per motor control language. 

Eventually, though, you might want to eiKode the conq)Iex 
motions into words of their own, to cut down on your typing. 
The above demonstration could be put in a word named DEMO 
as follows: 



TABLEI IS TABLE 
TABLE2 IS TABLE 
TABLE3 IS TABLE 



200 STEPS DROP 
200 STEPS DROP 
200 STEPS DROP 



should let us find the one that works best. 

We could add a Uttle error detection code to the word STEP as 
shown below, 

: STEP ( last - this) 

DUP 4 BETWEEN NOT ABORT' BAD LAST 

STEP" DIRECTION @ + 

3 AND DUP ST + C@ LPT! ON-DELAY @ MS ; 

but it is hardly needed. The common mistake would be to 
forget to put the last index on the stack before calling STEP or 
STEPS. In that case, some trash on the stack would be used 
instead, but the 3 AND would clip it to between to 4, so not 
much harm would be done. 

We might find we say 20000 STEPS and decide we don't really 
want to wait that long! So, the word STEPS contains the word 
7SCR0LL which checks the keyboard and aborts the current 



( 


-) 







FWD 


200 STEPS 




BACK 


100 STEPS 




FWD 


50 STEPS 




BACK 


25 STEPS 




MOTOR-OFF 



Remember, STEPS akeady has the word 7SCR0LL built into 
it, so just pressing a key will stop and restart it Or, you could 
define an endless loop (until you press Esc) to repeaS. the demo 
&ster and fiister and dien slower and slower, or produce certain 
motions based aa certain key presses or input switdtes, etc. 

Going Forth 

You may have guessed that I have plans for this stepjpa motor 
controller circuit in the XYZ table I hope to have one day. So 
far we've only talked about controlling a single motor. The 
DS2003 chq> only has 3 left over switches; not enough for 
another motor, but two DS2003 chips would have 14 switdies 
which would be enough for 3 motors with two switches left 
over. The next question is whether we can get twelve output 
lines fr(Mn a single parallel port or whether we would either 
need to use 2 ports or some sort of multiplexing scheme. Well, 
we have 8 data lines; enough to control two motors. Then we 
have 4 output handshake lines; enough for the 3rd motor. (One 
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motor for each of X, Y, & Z requires three motors.) So, it looks 
like a single parallel port will be sufficient. 

Even if a stepper motor is not what you want to control, I hope 
the above ideas will help you use the parallel port for whatever 
you might want to control. 

Left Over 

I still have vaany things to do and to write about. I will be 
delighted to hear your questions and suggestions. I received 
some information from DynaArt about their iron-on methods 
for making printed cinniit boards. I had been disappointed in 
my first attenq)ts with this sort of thing, but with their sugges- 
tions I might find it works well after all. Eventually, I hope to 
pass on the suggestions and conunents about my results. I also 
have some of the Press-N-Peel material I want to tiy. I have 
heard glowing rqwrts about it, but also that it may be incon- 
sistent fiom batch to batch. I would like to try it as well and 
give yoa a conqnrison of the two. I feel that I am so clumsy 
with this sort of thing, that if any of it ever works well for me 
then it will work great for you. 

I'm also interested in software digital logic breadboarding, 
eq)ecial]y for the intro to conq)uter architecture labs I teach. 
The idea being that a student might learn more of the prin- 
ciides if some of the tedious mechanics of wiring up the circuits 
were e lim i n a t ed. I have two packages to look at as soon as I 
get the time. 

Prices I mentioned for old PCs in previous articles seemed way 
too high as soon as they were in print. I just got a catalog fi'om 
SunRemariceting, Inc. (1-800-821-3221) which specializes in 
used Macintosh computers. They offer an IBM PC with 640K 
RAM, 2 360K floppy drives, keyboard, serial port, parallel 
port, and monochrome monitor for $99 (plus $45 shipping & 
handling!). For $50 more they will replace one of the 360K 
drives with a 10Mbyte hard drive. I've seen '386SX 
motherboards for around $64. Some places, I think, don't even 
_sell_ '386 motherboard axsy more because they are now out- 
dated. Gee, not only can old PCs join the classic computer 
ranks, but toy '386 seems to be a classic too. 

The PLX) programmer is still on my list to work on as soon as 
I can get this conversion project done. I want to discuss the PIC 
processor, which is getting so much press in connection with 
The BASIC Stamp, and compare it to the Motorola 68HC11. 
My first feeling is that the PIC is a step backward and that, 
dollar for dollar, the 'HCll is a far better buy and easier to 
work with. More on this later. 

Remember my GEnie email address is F. SERGEANT or, 
through the internet, fsergeant@GEnie.geis.com in case I say 
to hell with school and lose my fs07675@academia.swt.edu 
account. 

END 



Xlmpolor Drive Circuit 



® 6 LEADS 




8 LEADS 




^Switching Sequence] 

FOUR-STEP INPUT SEQUENCE* (Full-Step mode) 



STEP 


SW1 


SW2 


SW3 


SW4 


1 


ON 


OFF 


ON 


OFF 


2 


ON 


OFF 


OFF 


ON 


3 


OFF 


ON 


OFF 


ON 


4 


OFF 


ON 


ON 


OFF 


1 


ON 


OFF 


ON 


OFF 



* Provides CW rotation as viewed from namepiate end of nwtor. 
To leveise direction of motor rotation eneigi2s steps in the 
following order: 1, 4, 3, 2, 1. 



EIGHT-STEP INPUT SEQUENCE* (Half-step mode) 


STEP 


SWl SW2 


SW3 


SW4 


1 


ON i OFF 


ON 


OFF 


2 


ON j OFF 


OFF 


OFF 


3 


ON OFF 


OFF 


ON 


4 


OFF ' OFF 


OFF 


ON 


5 


OFF ON 


OFF 


ON 


6 


OFF 1 ON 


OFF 


OFF 


7 


OFF : ON 


ON 


OFF 


8 


OFF OFF 


ON 


OFF 


1 


ON OFF 


ON 


OFF 


•Provides CW rotation as viewed from namepiate end of motor. 
To reverse direction of motor rotation energize steps in the 
following order: 1, 8, 7, 6, 5, 4, 3, 2, 1. 




Courtesy of: 

ORIEHTAL MOTOH 



ORIENTAL MOTOR U.SA., CORR 
Head and Los Angeles Office: 

2701 Plaza Del Amo, Suite 702 
Torrance, CA 90503-7395 
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SERIES ULN-2000A 
7-CHANNEL DARLINGTON DRIVERS 



TYPICAL APPLICATIONS 



PMOS TO LOAD 




SERIES ULN-2000A 
HIGH-VOLTAGE, HIGH-CURRENT DARLINGTON ARRAYS 



THESE HIGH-VOLTAGE. HIGH-CURRENT 
Darlington amys are comprised of seven silicon 
NPN Darlington pairs on a common monolithic sub- 
straie. All units have open-collecior outputs and in- 
tegral diodes tor mductive load transient supprc:*- 
sion. 

Peak inrush currents to 600 mA (Series ULN- 
2000A and ULN-:020A) or 750 inA (Series ULN- 
20I0A) are permissible, making them ideal lor driv- 
ing ningsten ribment lamps. 

Series ULN-2IX)IA devices are general purpose 
amys that may be used with standard bipolar digital 
logic using external current limiting, or with most 
PMOS or CMOS directly. All are pinned with out- 
puu opposite inputs to facilitate printed wiring board 
layout and are priced to compete directly with dis- 
crete transistor altemabves. 

Senes ULN-2002A is designed for use with 14 to 
25 V PMOS devices. Each input has a Zener diode 
and resistor in series to limit the input current to a 
safe value in that application. The 2iener diode also 
gives these devices excellent noise immunity. 

Series L;LN-2003A has a 2.7 kll senes base 
resistor tor each Darlington pair, allowing operation 
directly with TTL or CMOS operating at a supply 
voltage of 5 V. These devices will handle numerous 
interface needs — parbcularly those beyond the 
capabilities of standard logic buffers. 

Series ULN-2004A has a 10. 5 Vil senes input 
resistor that permits operaoon direcdy from CMOS 
or PMOS outputs utilizing supply voltages of 6 to 
15 V. The require input current is below that of 
Series ULN-20O3A. while the required input voltage 
is less Aan that required by Series ULN-2002A. 

Series ULN-200SA is designed for use with 
standard TTL and Schottky TTL, widi which higher 
output curreiUs are required and loading of the logic 



output is not a concern. These devices will sink a 
minimum of 350 mA when driven from a '*totem 
pole" logic output. 

Series UL.N-2000A is the original high-voltage, 
high-current Darlington array . The output transistors 
are capable of sinking 500 mA and will sustain at 

Device Mumber Oesipiition 



V,f^„ 


50V 


SOV 


95 V 


If-u- 


SOOmA 


600 mA 


SOOmA 


lojic Jy9t Number 


Geflent Purpou 
PlilOS. CMOS 


ULI«.2001A 


Ul)l-2(I11A 


UUI-2021A 


lt-25V 
PtHOS 


UUt-!002A 


ULN'20>2A 


UUI-2022A 


5V 
m. CMOS 


UlJ(-20O3* 


UUt-2013A 


UUI-2023A 


6-lSV 
CMOS. PMOS 


U1J(-2004A 


UU^201U 


UUI-202U 


Hitli-OiitpU 

m 


ULN-200M 


UIH-ZOISA 


UIN-202SA 





< -■ 



BUFFER FO« MIGH-CU«IIENT LOAD 



USE OF PUU-UP lESISTOItS 
TO INCtEASE DIIIVE CUMENT 




NPRNTSei CS) 



eo9-i «) 



ueoESCT 0} 



HBP* 
NRPB 
NBPC 



00 



IROEN Oi 
MSIXTIN (X> 
NAUIDFOxr Ifi 
NSTROBE (3). 
inn C3) 




9R00-7 CS) 



Typical Centronics/Parallel port on PC/XT FDC/Printer adapter. 
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Regular Feature 
ZCPR Support 
'CP/Mpart2 



The Z-System Corner II 

By Ron Mitchell 



There was a programmer of wisdom 
Who wrote a small patch for his system 
The aim ofAe code was to make bugs ex- 
plode. 
But his T-CAPfell off and he missed 'em. 

(Cue: groaning, laughter and !q>plause) 

Nothing worse than suCfering from an 
inadeqtiate T-CAP, ot TCAP as it's mOTe 
properly known, especially wiien you're 
trying to write second grade limericks. 
More about that later. (Not the limer- 
idcs, the TCAP) 

I need to know who you are. There are 
numerous ways of approaching this se- 
ries of articles on Z-^ystem. The best 
one will find its way onto these pages 
only if I hear your comments and ques- 
tions. If you are like the various groups 
of oonqMiter users I've had the pleasure 
of knowing over the years, you have 
diverse tsapentasx and various levels of 
knowledge. That in itself makes a series 
like this somewhat difficult to write. If I 
make it too basic, I'll lose the old hands. 
If I get too technical (assuming that I 
could) the new people trying Z-System 
for the first time will get up and leave. 
Can't win for losing. 

I am on internet through the facilities of 
the Ottawa Freenet: 

ac087@fi^net.carleton.ca 
Or just fdain old Snail Mail: 
Apt. 1107. 
210 Gloucester St., 
Ottawa Ontario 
Canada, K2P 2K4 

Finally if you'd like to check out one of 
the few PBBS 5.0 Bulletin Boards qjer- 
ating on a Coleco ADAM, you can call 
(613) 230-9511. The "Byteman" oper- 
ates limited hours between 11pm and 



5pm daily, 1 1pm to Sam Saturday, Sun- 
day and holidays. Parameters are 300/ 
1200/2400 8N1. 

One way or another, get in touch. I'm 
open to suggestion on the content, level 
of difficulty, and format of these articles. 
I'd also like to hear some of your expt- 
riences with Z-System and how you're 
using it. 

Unfinished Business 

There are items of business left from the 
last installment; we'll pick them up here. 
We'll begin by completing an overview 
of the structure of the CP/M operating 
system and then follow with a descrip- 
tion of the role played by the various 
component parts. With this understand- 
ing under our belts, we'll be in a better 
position to understand in future install- 
ments what Z-System does differently. 
While doing all of this we'll want to 
cover some general ground rules having 
to do with syntax and how it is normally 
expressed. 

All of this is going to prq}are us to 
actually load Z-system at the beginning 
of the next session. Before we do, we 
have some groundwork to complete that 
we began in the first installment and 
that will put us in good shape to really 
get down to the job at hand in the next 
installment. 

Off to a flying Start 

At the outset, there are a couple of as- 
sumptions to be made. 

1) You know where your CP/M disk is 
and you've booted it up once or twice. 

2) You have purchased Z-System 



(NZCOM or Z3PLUS) and you're won- 
dering what to do next. 

3) You have an open mind and would 
like to know more about Z-System. 

Also, for the record let's get our prod- 
ucts straight: 

ZCPR2 and ZCPR3: Written by Rich- 
ard Conn 1982 - 1984 (give or take). 

NZ-COM: written by Bridger Mitchell 
and Jay Sage; the docs are dated 1988. 
This program is the Z-System for CP/M 
2.2 machines. 

Z3PHJS: written by Bridger Mitchell 
and Jay Sage. This is Z-System for CP/ 
M 3.0 or CP/M Plus systems. 

The history has it that there was another 
individual deeply involved in the transi- 
tion between ZCPR and Z-System. That 
was Joe Wright. More about him in a 
moment. 

Somewhere in the mid eighties, when I 
had bought my first implementation of 
CP/M 2.2, 1 was after all the books on 
CP/M that 1 could get my hands on. The 
manual that came with CP/M for my 
system had one or two chapters right at 
the begiiming that I could understand. 
Then it took off into a netherworld of 
technical explanation which really left 
me struggUng. I came back to it later 
and understood it, but only with a little 
help from my friends. There was a pe- 
riod of time when most of the CP/M 
'newbies' on my block were reacting 
much the same way. Those who had the 
nerve to download one or two of the 
public domain offerings on local BBS's 
ran up against the implementation prob- 
lems of installing something that was 
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originally written for a K^pro or an 
Osborne. The terminal most of us used 
lequiied Zenith/Heath emulation but we 
didn't even know that, nor the meaning 
of the word 'patch'. 

The early documentation seemed to be 
written for people who already knew 
what they were doing, and certainly I 
was not alone in making this assess- 
ment It look some time spent in read- 
ing, re-reading, thinking about, and ask- 
ing just to arrive at the level of under- 
standing I have now. And that is by no 
means conq)lete. There are always new 
things to learn. 

Some Help from my Friends 

A fiiend of mine one day, spying on my 
desk a copy of "The Soul of CP/M" 
(Mitchell Waite, Robert Lafore - Waite 
Group - Howard W. Samms, 3rd print- 
ing, 1986 - ISBN 0-672-22030X ) asked 
me if I'd installed ZCPR yet. When I 
said no, he more or less intimated that I 
would not be a true CP/M user unless 
and until I did. He added that if I could 
get ZCPR up and running on my Goleco 
ADAM I could credit myself with the 
equivalent of a degree in computer sci- 
ence. 

Knowing >^iiat I know now, I suspect 
that he may have been quite right It 
seems to me that installation of ZCPR 
would have required a knowledge of Z80 
assembly language even though most of 
the code files I've since seen are more 
than well commented. It certainly would 
have required knowledge of how to use 
an assemUer, linker, loader, and librar- 
ies of standard routines. And it would 
have necessitated full knowledge of the 
size of one's own system and how to 
generate replacement versions of CP/M. 
Then there would have been the joys of 
adapting the system to different combi- 
nations of hardware. It was all possible, 
but you had to know what you were 
doing. 

Enter Joe Wright. The preface to the 
Z3PLUS describes it this way: 

"Joe Wright brought automatic opera- 
tioa It was he who first conceived of 
and demonstrated with Z-COM what 



many deemed impossible - a version of 
Z-System that would install itself auto- 
matically on almost any CP/M 2.2 com- 
puter. Yet, even after Z-COM's success, 
it still appeared that Z-System could 
never run on a CP/M-Plus computer with 
its radically different command proces- 
sor and banked memory operating sys- 
tem Z3Plus proves otherwise." 

The preface goes on to state the contri- 
butions of Bridger Mitchell and Jay Sage 
in the development of Z-System. Bridger 
made the systems universal. He devel- 
oped the ZRL file format and loader 
which would allow a single file to adapt 
to any Z-System Jay Sage added what 
the preface describes as "dynamics", the 
ability of the operating system to change 
its size and characteristics to suit the 
need at hand, right in the middle of a 
command line if necessary. 

As this series goes on, we will come to 
appreciate these things more and more. 

The Basics 

For the moment, let's continue with the 
basics. In your computer there is memory, 
probably 65,536 places, pigeon holes, 
empty boxes, call them what you will. In 
the last installment we brdce down l»iefly 
what these memory locations might be 
used for. You might even have more 
than 64K. You might have 128K, and 
perhaps your processor, the Z80, is ca- 
pable of looking only at 64K at a time, 
so you're into bank switching. But let's 
not get too complicated. 

Consider the work that has to be done 
when you sit down in firont of your sys- 
tem to make an immensely significant 
contribution to the worid of computing. 
No matter what you're trying to do, it's 
quite likely that you will want the fol- 
lowing capabilities: 

- to ou^ut a character to some sort of 
display device. 

- to receive information (characters) 
fi-om the keyboard or some other type of 
input device. 

- input and output of data from and to 



a storage media; disks, tapes, hard drives, 
etc. 

The list goes on. But no matter what 
type of application you're using or what 
program you might be writing, your job 
can usually be broken down into some 
very simple tasks involving the move- 
ment, management and processing of 
data. And the plain fact is, the contents 
of your computer's memory is one of two 
things: data or instructions. 

The ZCPR3 Manual makes the picture a 
little more detailed. It talks about 1) 
Memory; 2) Processors and Processes (a 
process is a running program); 3) De- 
vices; and 4) Information. 

Author Richard Conn talks about 
memory management, process manage- 
ment and device management CP/M 
doesn't do much about the first two. It 
doesn't allocate memory, and since there 
is oidy one processor there is really not 
much in this realm to manage. Where 
CP/M excels is in the area of device 
management. No matter what you've got 
hooked up, CP/M creates a standard way 
of looking at the peripherals. The pro- 
grammer doesn't have to know how the 
individual device drivers work. AU he 
has to know is that they are all accessed 
through the standard BIOS or BASIC 
INPUT/OUTPUT SYSTEM. There is a 
jun^ table of instructions located at the 
beginning of the BIOS. Each entry in 
the table is 3 bytes long, and qo matter 
what CP/M system is being used, the 
functions are always in the same order. 
The programmer needs only to know 
what the fiincticms do, what information 
or parameters are needed as iiq>ut, and 
what information or parameters are re- 
turned by the ftmction when it has done 
its job. It's sometimes referred to as a 
'black box' mode of operation. 

Since this is not a course in CP/M we'll 
stq> right there. Essentially the process 
is to use assembly language to load cer- 
tain registers in the Z80 processor with 
the values required by the particular rou- 
tine being called. You then call the rou- 
tine and check certain other registers for 
the data which the routine has provided. 
Perhaps this particular routine will be 
called several times so as to get, for 
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example all the characters, one at a time, 
that a user types before typing a return. 

The BIOS is one major portion of CP/M. 
There is also a 'System Parameter' area, 
the BDOS and the CCP. The more you 
rub shoulders with CP/M folk, the more 
you'll hear these terms being bandied 
about. 

The System Parameter area is often re- 
ferred to as Page Zero or the first 256 
memory locations between OOOOH and 
OlOOH. This area is reserved by CP/M 
for certain vital information about where 
variotts elements of the system are lo- 
cated. That's probably oversimplifying 
it somewhat, but it'll do for the moment. 
Needless to say we don't write anything 
into page zero unless we're firmly con- 
vinced that we know what we're doing. 

The BASIC DISK OPERATING SYS- 
TEM or BDOS looks after information 
management. It allows you to select a 
didc, create a file, open a file, close a 
file, rename a file, delete a file, set the 
memory address in the con^ter to which 
data is written, and read or write a block 
fixMn a file. 

Now when I first read all of this, it 
seemed to me that there wasn't anything 
very sexy about any of it. It's very boring 
stuff, but when you think about it, it's 
absolutely essential to anything you 
might want to do with your computer. 
The better you know the structure of CP/ 
M, the m(H« you'll appreciate the Z- 
System enhancements which we'll start 
talking about in a moment or two (hon- 
est). 

The BDOS provides 37 standard func- 
tions. Any good bode on CP/M lists them, 
and describes the parameters they need 
and the registers they use for input and 
output. I can spend more time with this 
in fiiture articles if there proves to be a 
need. Most beginner's courses on as- 
sembly language programming that use 
the CP/M operating system start you out 
by having you write a Z-80 program that 
simply puts 1 character on the screen. 
Not much you say, but crawling is best 
mastered before walking and nmning. 



One of the concepts I had a great deal of 
difficulty with at the beginning was that 
most of these functions do their thing 
either I byte at a time or some very small 
group of bytes at a time. It was difficult 
to see how anything of substance was 
going to be achieved with such small 
steps. What you have to remember is 
that the Z-80 processor is performing 
these small steps at a very fast pace. You 
won't have time to eat your lunch while 
you're watching. So it dawned on me 
that each job that a computer does is 
made up of very deliberate single steps. 
Go get an underline character 80 times 
and presto, you have a Une across the 
screen. Repeat that process 4 or S times 
and you have a thicker line. 

Moving along, we've talked briefly about 
Page Zero and the BIOS and the BDOS. 
I would really like to recommend that 
you find and read a good introductory 
text on CP/M in conjunction with this 
series. I've got two here that are con- 
stant conq)anions: "The Soul of CP/M" 
referred to earlier, and another called 
"Mastering CP/M" by Alan R. Miller 
(Sybex 1983 ISBN 0-89588-068-7) 

You'll find that when you've got CP/M 
booted, the BIOS and BDOS don't jump 
right up and introduce themselves right 
away. And Page Zero doesn't really put 
up a sign saying, "Please Stay Out!" In 
fact all you get is: 

A> 

Perhaps if you're a Canadian we should 
rewrite that: 

EH> 

And there you and your computer sit, 
staring at one another. There are two 
things required for anything fiirther to 
happea Your command and another part 
of CP/M known as the CONSOLE COM- 
MAND PROCESSOR or CCP. The CCP, 
as the cliche goes, is where the rubber 
hits the road. Richard Conn calls it the 
"human interface." 

In fact the CCP under vanilla CP/M is 
not very smart. It only knows six words. 



These are the six that we talked about in 
installment 1: 

DIR ERA REN USER SAVE TYPE 

That's it, that's all. 

Type something else: 

EH 

EH is not one of the six built in com- 
mands, so the CCP assumes that you're 
looking for a program name on the disk 
and goes to look there for a directory 
entry that matches what you typed. If it 
finds one it attempts to run a program by 
that name. If it does not it comes back to 
the screen and types your command fol- 
lowed by a question mark. 

A>EH? 

Filling up the Memory 

So let's recap. The diagram you'll no 
doubt see in your favorite CP/M text 
might look like this: 



I 

1 CP/M 2.2 BDOS 



h 

I 

I CP/M 2.2 CCP 



TPA h 



High Memory 
BDOS-^OEOOH 



CCP+0800H 



CCP BASE 



I CP/M Buffers et al 

I OH 

Here's To the Relatives 

There are two things to get used to here. 
The first is the expression of various 
points in memory in relative terms. In 
other words, the beginning of the BDOS 
is 800 Hex bytes above the beginning of 
the CCP. Why not express it as a fixed 
memory address? Well, you might have 
64K of memory available, or 48K or 
something else. Addresses may vary fi-om 
one machine to the next, but the relative 
positioning of the start of each segment 
is the same. The area between OlOOH 
and the begiiming of the BDOS is known 
as the Transient Program Area or TPA. 
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The larger your TPA, the larger the ap- 
plication you can run. 

The second thing to get used to is the 
expression of memory locations in hexa- 
decimal rather than decimal. You can 
convert the values if you wish, but you'll 
find that most people don't in this world. 
Hexadecimal arithmetic more closely 
matches the 8 bit setup within the com- 
puter. 

There is another aspect of the basics that 
caused me difficulty. That was the nota- 
tion that CP/M writers used to convey 
generaUzed forms of specific instructions. 
This type of notation is not confined to 
CP/M nor solely to the field of computer 
science. To illustrate, you might see 
something like this: 

PIP destination=source#l,source#2,... .source #n 



or 



MLOAD [<outnam=>][ <filel.type>, ] <file2>[, 
<file3...>] [bias] 

or something as simple as: 

COPY [du:] afi> [du:] 

Again, we're going to use this notation 
because it's fairly standard among CP/ 
M users, I certainly can't think of any- 
thing better. There are the following 
general rules: 

1) AFN and UFN stand respectively for 
ambiguous filename and unambiguous 
filename. You have no idea how long it 
took me to figure this out. It may well be 
printed in several places at the begin- 
ning of each and every CP/M text I own, 
but the moment I see either one I'm 
infuriated. Question: why the heck don't 
they just say what they mean? A filename 
that contains wild card characters, or a 
filename that does not contain wild card 
characters. 

2) Information contained within angle 
braces o is information that must be 
typed exactly? Well no, not exactly. As 
far as I can tell it means something more 
along the lines of .... fill in the blanks 
with your own information. 



3) Most always, information contained 
in square brackets Q means that the in- 
formation specified is optional. That is, 
you can leave it out without affecting the 
operation of the command or program. 

4) DU: or du: stands for drive/user. So if 
you see AO:F1DLEFXJD.COM that would 
be a COM file named FEDLEFUD lo- 
cated on drive A: user area 0. 

5) outfil or outfile and infil or infile 
usually require you to substitute the 
names of your input and output files in 
the order specified. 

6) and of course if you remember high 
school math you know that: 

file#l,file#2,file#3, ,file#n 

means keep adding filenames to fill your 
boots... as many as you have need to 
process, or until you fill up the com- 
mand line buffer.The value #n is meant 
to refer to the last one in the list of files 
to be processed, however many there 
might be. 

You old hands may laugh, but you'd be 
surprised how easily we of the novice 
category become confused. Sometimes 
several strings of this type of notation 
written and intended in good faith are 
enough to send us away forever. We 
might never be back. 

Exit, Stage Left 

This seems like a good place to stop. 
During this installment and the last one, 
we've dealt as much with CP/M 2.2 in 
its 'vanilla' state as we have with Z- 
System. From here on in that will change. 
In the next article we'll begin with a 
discussion of some of the advantages of 
Z-System, and we'll re-draw the memory 
map that appeared here to show you how 
Z-System adds to the capabilities avail- 
able while retaining compatibility with 
CP/M. 

We'll also have some information for 
you on the various sources of assistance 
available for Z-System users. There's a 
lot of help out there even yet. And fi- 
nally, we'll get back to and take care of 
the problem of the inadequate TCAP. 
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Do you need 

Micro Cornucopia Disks? 

Echelon Publications? 

Boot Disks? 

Disk Copying? 

Lambda Software Publishing 

can now supply reprints of 

Micro Cornucopia Magazine, 

Kaypro Disks, Boot disks, CP/M 

2.2, ZCPR and CP/M programs. 



Kaypro disks 


$5.00 


all 49 disks 


$200.00 


Big Board disks 


$5.00 


all 30 disks 


$100.00 


Catalog of disks 


$5.00 


Disk Copying 


$10.00 


MicroC reprints 


$8.00 


Z-Letter back issues 


$3.00 


CP/M 2.2 


$25.00 


CP/M Plus 


$25.00 


Spellbinder v5.3H 


$60.00 


Echelon Publications 


$15.00 


Four or more 


$10.00 


User Guides: 




ZCPR 3.3, Z-System, ZAS/ZLINK, 


ZDM/ZDMZ/ZDMH, JetFind, and 


many other Manuals. 





Sound Potentials Public-domain 
software - catalog $10.00 

Any disk in collection $10.00/disk 

Contact 
Lambda Software Publishing 

149 West Milliard Lane 

Eugene, OR 97404-3057 

(503) 688-3563 
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,M The Mail Bag 



Dr. S-100 

By Herb R. Johnson 



"Dr. S-lOO's FaU column" by Herb 

Johnson (c) Aug 1994 

Internet: hjoluison@pluto.njcc.coni 

Introduction 

Given the rising costs of the IDE S-100 
prqect, I've decided to strip it down to 
just the "chip" and wirewrap. That is, 
you'll have to hand wire the chip to a S- 
100 prototype card. Details are contained 
in a sq»rate article this issue, written by 
Claude Palm of Palmtech vitua devel- 
oped the diip, and myself. I know of at 
least one reader who is interested: check 
nay mail bdow. 

I got some nice deals aa a few systems, 
and I discuss the proUems of shipping 
and purchasing. And as usual I'll share 
nty correspondence. Notably, this in- 
cludes some further discussion of Digi- 
tal Research GSX by Emmanuel Roche. 

Netwoiidng 

I've joined the other techno-lemmings 
and got an Internet account a few months 
ago. Rather than pay the connect-time 
charges of one of the big networics like 
Conqjuserve or Genie, I decided to sup- 
port a new guy in the neighboring town 
of Lawrence NJ. The New Jersey Com- 
puter Connection (NJCC) is like many 
local BBS's that have sprung up in the 
last several years, excq>t for two things. 
It runs unter Linux, a "freeware" Unix 
conqntible OS; and it has a connection 
to Internet instead of one of the many 
dial-up BBS networks such as Fidonet. 
For a flat fee each month, I get unlimited 
access (except when the lines are busy) 
and a modest amount of disk space. See 
my "references" section for my 'net ad- 
dress. I'd recommend the news group 



"comp.os.cpm" for most of our CP/M- 
based readers. 

My biggest challenge, after dealing with 
the odd syntax of Unix, was to find an 
"off-line reader" that could accept a 
downloaded file of mail and news, allow 
me to read it and re^nd, and would 
padcage my responses for iq)loading back 
to the Linux/Unix system. This is the 
only way to cruise the Information High- 
way: staying on-line for hours ties up the 
phone! The reader of choice for my MS- 
DOS machine (sorry) is yam, which is 
available as shareware. Chedc your fa- 
vorite Unix site or large MS-DOS de- 
pository, or ask your sysop. 

For those of you who can't afford this or 
who do not have a network provider in 
yoitf area code, you can still find a lot of 
activity on the many BBS-based net- 
works. FidoNet has been aroimd for 
several years, and carries the 
"CPMTECH" conference area. Most 
major metropolitan areas have a Fidonet 
node somewhere. There are other re- 
gional, national, and international net- 
works of this kind: ask your local BBS 
operator for details. 

Correspondence 

If possible, please include your network 
address or BBS location if you have 
one. This will allow myself and others to 
re^nd to your requests. And, if you use 
an address of aity sort from my column, 
please note the soiuce! And, if you want 
our correspondence private, please tell 
me so: otherwise I presume you really 
want to hear from other S-100 owners 
and welcome a place in xvy column. I 
will use some discretion in my quota- 
tions and comments. 



1 may not answer your letter immedi- 
ately: let me know if it is urgent It 
would also help if you include a phone 
number, or even a reply postcard! If you 
want a system or cards, it would help me 
a lot if you tell me what you have or want 
in detail (if you can). And, tell me where 
you heard about me. 

Emmanuel on GSX for CP/M, 
Amstrad, NCR 

Emmanuel Roche of Troyes, France 
continues to inform me on his progress 
on interpreting Digital Research's GSX 
graphic standard. In June he sent me a 
copy of a Byte Magazine article (printed 
from a disk file) from February 1983 (p. 
256) "ReaUzing Graphics Standards for 
Microcomputers" by Fred Langhorst 
(Digital Research) and Thomas Claikson 
(GSS). Also, Emmanuel has been work- 
ing on disassembling the Amstrad 
PCW8256 BIOS ROM and sent some 
results to me: anyone interested should 
contact myself or him. He is also work- 
ing on the NCR DecisionMate V and 
needs info on its I/O port assignments. 
He asks <with my comments in brack- 
ets> "The <NCR> driver uses four I/O 
ports: lOH, 1 IH, OAOH, and OAIH. From 
the code, Emmanuel thinks OAOH and 
OAIH give access to the NEC uPD7220 
GDC <graphics chip?> and that ports 
lOH and 1 IH give information about the 
hardware Could someone confirm and 
give the requested technical informa- 
tion. Emmanuel does not have an NCR 
available: he merely disassembled the 
NCR driver to see how DRI did it.. .and 
maybe he'll port it to the Epson QX-10 
which uses the same NEC chip." He 
enclosed an ad of an Dliuninated Tech- 
nologies S-100 card which also uses this 
graphics chip. He says "a GSX driver for 
this board would have boosted the S-100 
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bus with superior graphics... and prob- 
ably launchnl a whole industiy. But DRI 
didn't write it.." 

Regarding GSX, he writes: "TO contrib- 
ute to rolling the ball of GSX a little 
further, enclosed you will find an article 
explaining GSX and an example of its 
use: a <plotter> graph with your name 
<and a color bar chart! >. GSX is a CP/ 
M 2.2 program, so it will run under Z- 
system (<although> I am strictly DRI- 
compatible). The only (and big) problem 
is the CRT driver: very few were written 
for CP/M-80, as DRI was switching to 
the 16-bit wonderland <8086> at that 
time. 

He later reports in July <again with my 
coniments>:"Yippee!!! Success at last! 
The Epson FX-80 GSX printer driver is 
finally available! <He has been working 
on this for some time, based on interpre- 
tations of other DR's drivers.> Now that 
this poweifiil GSX driver is available, 
the road is open for more physical de- 
vices, like laser printers... 

Please repori to your readers that 
"Emmanuel Roche is looking for people 
still using CP/M, but using a laser printer 
such as the HP LaserJet 4 or Canon 
LBP-8 IV, in order to beto test GSX 
printer drivers. You will be requested to 
provide some technical infos to write 
five hardware specific routines. GSX 
screen drivers are available for the 
Amstrad PCW8256 <a popular Euro- 
pean CP/M Z-80 ^stem>, Epson QX- 
10, NCR Decision Mate V, and DEC 
VT-100 teraunal <a close cousin of 
ANSI, I beUevO." 

"Personally, as told in my last letter, I 
am woridng on the NCR CRT driver. 
The only thing I don't understand so far 
is the use of I/O ports lOH and IIH. If 
one of your readers of TCJ could write to 
tell me the truth or to confirm my guesses, 
I would be most grateful (and he would 
get a cq;)y of the source code!). 

"I also idan later to work on the Amstrad 
screen driver, because it is the most suc- 
cessful GSX microcomputer ever, hav- 
ing sold more than I,2S0,0(X) units 
<!wow!>." 



Although Emmanuel tells me "he's not 
looking for personal publicity" in writ- 
ing to me, I nonetheless encourage him 
to put together an introductory article on 
GSX, once he feels he has a good enough 
imderstanding to develop a "complete" 
description for distribution. I'll send 
some of this info to David McGlone of 
Lambda Software, who has a license 
agreement with the former Digital Re- 
search. I'll refer his Amstrad work to 
Elliam Associates who supports the 
Amstrad. I'm impressed by the sheer 
number of machines produced! 

News from England 

As usual, Emmanuel encloses the Disc 
Library News newsletter from the 
Windsor (England) Bulletin Board 
User's Group. He suggests that "their 
morale is low <and> they need some 
boost". Indeed, the newsl^er says their 
harddisk crashed and their library of 
disks has only received a few dozen re- 
quests. Their library is up to volume 
139; they report 17 volumes of various 
utilities such as assemblers, text tools, 
editors, unARCers, and so on. Some of 
them I recognize as pretty ^miliar. A 
catalog disk is available. 

The Editor notes that our own TCJ re- 
ports a drop in Z-systems sales; Jay 
Sage's discussions of 4D0S over Z-sys- 
tem; and "TCJ itself has decided to allot 
10% of its space to DOS" as suggestions 
that "the writing is on the wall.. ..7'. 

Fair Trade 

A. H. Smith of Alexandria VA thanks 
me for the Compupro information he 
requested. He's working with a 
Compupro 8/16 ^stem (later copies as 
the Heath Z-100 design). He tells me "I 
have recently horsetraded some PC 
equipment (the stuff was junk to me) for 
several late-model Con^>upro boards, as 
follows; 

Disk IB <a 5'/%' floppy disk controller> 
M-DriveH(512k) < a RAM disk card> 
CPU 286 <and 80286 CPU card — yes, 
on the S-100!> 
SPIO <an I/O card, you guessed it> 



These have the voltage regulator jump- 
ers for the IEEE 6% "B" standard, where 
the supply voltages are +5V and +/- 
12V. If you are interested in trading 
hardware, I could easily be convinced to 
trade the a System Support II card for an 
Interfacer 4 <both I/O cards of various 
sorts>, trade the '286 for a Disk lA, or 
whatever. Since I am not particularly 
fond of RAM disks, I might also be 
tempted to part with one or more M- 
Drive cards. 

Have you had any requests for "late 
model" Compupro equipment? There is 
a guy in California who retails 
Conq)upro/Viasyn <the latter was a brief 
name change for Compupro> hardware 
and software at exorbitant prices, such 
as $400 for a System Support II." Again, 
thanks very much for your assistance. If 
you have any other "requirements" for 
S-100 equipment, including Northstar, 
please let me know." 

"The Dr." (that's me) often enjoys these 
kinds of trades and mutual assistance. 
It's likely some else has the board or 
manual you need, or needs the stuff you 
have, so I enjoy being the "matchmaker". 

The Oldest S-100 system in continu- 
ous use? 

How long has your system been up? 
Ramon F Gandia of Nome, Alaska tdls 
me: 

" The S-100 IDE/floppy adaptor you 
described sounds great! Let me know 
where to send the money! <Nfy fiiend!> 
My Altair 8800 has been running since 
1979, and I switched to CP/M about S 
years ago <!> when the old MITS <the 
conq)any that built the Altair> drives 
became flaky. I am using a Fulcrum 
<the conq)any that "succeeded" IMSAI> 
Omirtdisk contrdler, but I had to do 
most of the BIOS and all of the boot 
<code> because Fulcrum's software was 
written for the Z-80 and wouldn't run on 
my 8080 MTTS cpu card Thus &r I am 
running on S" floppies since I haven't 
located a WD-I002-O5 controller card." 

<Tbe Dr. believes this is an old SASI 
card that converts MFM hard drives to 
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the SASI standard, an older version of 
the SCSI interface. Anyone who has this 
card may want to contact Rainon.> 

"In aay case, an IDE drive would be 
better. S(Hne IDE drives have as much as 
a 2S6K buGfer \i4iich would make an old 
Altair really fly! <Iinagiiie the possibili- 
ties.. ..!> In my ^stem I have a Memory 
MErcbants 64K RAM card, with the 
last chip a 2716 <PROM> where I put 
ray boot code, Alan Miller's monitor, 
console and printer routines (BIOS call- 
able) and a routine to receive on a serial 
port and to put the data into memory 
starting at OlOOH <CP/M TPA>. On nqr 
ibm pc I have an EPROM burner, and 
over the years I have had a lot of fun 
with this setap; now on version 57 of the 
EPROM chip!" 

Thanks for such an enthusiastic letter, 
RamonF This is indeed a useful combi- 
nationl You should write it vp in detail 
for TCJ; it would be adaptable to any Z- 
80/8080 development environment! 
Ramon also referred me to a source of 
IMSAI stuEC; a guy that is "sitting oa a 
pile" but "he never gets around to it on 
these little sales". Sigh. Just as for the 
$400 Compupro board, there are enough 
industrial users of these systems that 
three<ligit prices (and presumably ser- 
vice) are siq>p(med. After all, that WAS 
their original price! 

A long *Sreight'* for a system. 

Billy Munroe of Spring Hill, FL "needs 
an S-100 system to help me with a cor- 
re^ndence course. (It makes lots of 
references to the S- 1 00 and a p^)er punch 
nuK;hine.) Could you please write me 
with a price (or price list) for my realis- 
tic want. Thank you." If anyone has a 
system for him for an ^parently modest 
price, contact Billy. 

The problem from my end, Billy, is the 
shaping costs. For exanq>le, I just got a 
60-lb box from California: by UPS 
ground shipment, it cost about $25. Even 
by the che^)est rate, U.S. Post OfiBce 4th 
class bode rate, it cost $ 1 1 to ship 35 lbs 
of books! When you consider a "system" 
of an S-100 chassis with power supply 
and cards is 25 to 50 lbs or more; books 



and disks maybe another 25 lbs; and 8- 
inch disk drives of around 50 lbs; you'll 
end up spending about $50 more-or-less 
in shipping costs. 

What I can do, other than post the re- 
quest, is connect people like Billy with 
people near him who have notified me a 
system is available. Unfortunately, by 
the time I'm told a system is "available", 
it's just before it hits the dumpster! I still 
encourage people with systems about to 
be tossed to contact me - 1 may pay the 
shipping and more anyv/ay, or I can 
make some referrals. 

Quick notes 

I want to acknowledge mail from Gary 
Cooke of Washington IL, who is val- 
iantly struggling with a Morrow S-100 
machine and who discusses this on 
FidoNet; I'll write more on this next 
issue. Kent Walters of Ogden UT says 
"I ofTer him a glimmer of hope" in get- 
ting info on his new Vector Graphic S- 
100 "Vector 4" computers (I think I can 
help!). 

References 

Emmanuel Roche, 8 rue Herluison, 
10000 Troyes, FRANCE. 

Windsor BBUG, 11 Haslemere Road, 
Windsor, Berkshire ENGLAND SL4 



WANTED 

TCJ needs your embedded 
story or project! 

Our readers are waiting to hear from 

you about how you developed that 

embedded project using 8051 or 6805. 

Used Forth, "C", BASIC, or assembler 

any language is fine, just tell us what 

happened, how you did it,and how it 

ended up. No project too small! 

Send those Ideas to: 

The Computer Journal 

P.O. Box 535 
Lincoln, CA 95648-0535 



CLASSIFIED RATES! 
$5.00 PER LISTING! 

TCJ Classified ads are on a prepaid basis 
only. The cost is $5.00 per ad entry. 
Sui^rt wanted is a fi'ee service to sub- 
scribers who need to find old or missing 
documentation or software. Please Umit 
your requests to one type of system. 

Commercial Advertising Rates: 



5E1'. 


Size 


Once 


4+ 




Full 


$120 


$90 


Art J Smith, 1808 Jamestown Rd., Alex- 


1/2 Page 


$75 


$60 


andria VA 22308. 


1/3 Page 


$60 


$45 




1/4 Page 


$50 


$40 


Ramon F Gandia, P. 0. Box 970, Nome, 


Market Place 


$25 


$ia 


Alaska 99762. 










Send your items to: 





Billy Munroe, 20829 Moreland Dr., 
Spring HiU FL 34610. 

Gary Cooke, 200 W Monroe St., Wash- 
ington IL 61571-1466. 

Kent Walters, 3159 Ogden Ave, Ogden 
UT 84401-3905. 



The Computer Journal 

P.O. Box 535 
Lincoln, CA 95648-0535 



When calling TCJ advertisers, 
Say you saw it in TCJ! 
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S-lOO IDE Project Progress Report 

(c) Herb Johnson 1994. Portions (c) Palmtech 1994 

Early this year, I was contacted by Claude Palm of Palmtech of 
Queensland, Australia. He is a developer of Z-80 and Z-180 
(pnmouiiced zed-one-eighty, incidently) systems, and a user of 
S-100 systems for prototyping. While developing a compact Z- 
180 syston, he came iq> a cute little single-chip solution for 
IDE drive inter£icing, and offered the chip to me for consid- 
eration. We spaalL some time in correspondence, and I investi- 
gated the costs of an S-100 IDE card. 1 reluctantly decided that 
the startup costs and small quantity costs of such a product 
would be too much for my meager budget of time and money, 
and at SISO or more each as a selling price would also be too 
"pricy" for many of my S-lOO colleagues and readers. 

Bill Kibler begs to disagree. He believes that anyone with a 
soldering iron and an wirewrap tool - and an S-lOO &n - would 
love to get one of these chips. After conferring with Claude, we 
decided to offer the chip, a circuit, and some software to my 
Loyal Readers to see where the winds will blow. 

This issue, I'U present Claude's early notes, some schematics, 
and parts costs. Next issue, if 1 survive the flames of criticism 
and IF I RECEIVE SUFFICIENT SUPPORTING CORRE- 
SPONDENCE, ru continue with more software details and 
encouraging news. I ""may* get Claude to discuss the process 
of developing such a chip: he recentiy suggested "that would 
fill a book", but I encouraged him to think further. He will at 
least show us a "state diagram" of the chip's operation. 

The following was written by Claude Palm of Palmtech (with 
a little editing horn me.) 

Introduction 

Inspired \iy the recent interest in both SlOO systems and IDE 
drives in TCJ, Palmtech has come tq> with a single chip IDE 
interfiice for the S-lOO bus: the PT IDEIOO. The chip comes in 
a 68-pin PLCC package and performs all buffering, decoding 
and 8/16 bit conversion required to operate one or two IDE 
drives on an S-lOO bus. There is additional on-chip circuitry to 
attach a second I/O device, a flq)py controller. 

A home ccMistructor could use a PT IDEIOO chip to make a 
"hard card", i. e. an S-100 card with on-board hard disk drive. 



A low profile (LP) IDE drive can be mounted on the S-100 
card, so that no external cabling is necessary. LP size IDE 
drives are quite common, with low power cotisuiiq)tion, and 
modest cost. 

Hardware 

The "HARDBOARD" requires few components: the drive, a 
PT IDEIOO chip, regulators, resistor packs, decoi4>ling c^s, 
an address decoder (for 16-bit I/O addresses if needed). Signal 
(non-power) coimections can be wirewrapped or, preferably, 
point-to-point soldered. Wire wrapping Wl result in a trq)le- 
thick card (with on-board drive and long wirewrap sock^). 
Wirewrap PLCC and IDE sockets are more expensive than the 
solderabte equivalents. 

Power and ground coimections must be made with copper strip 
or hookup wire and MUST be soldered. Good decoiq)ling (witii 
bypass capacitors) is essential with hand wired coimections, 
even with heavy hookup wire. Minimum decoupling is with 2 
tantalum caps and 1 ceramic cap at each regulator, 1 tantalum 
and 4 ceramics at the PT IDEIOO chip, and 2 electrolytic caps 
and 2 ceramics at the IDE power connector. Skiiiq)ing on these 
caps or on wiring can generate voltage ^ikes during aptmaon 
which will cause unpredictable errors. See the HARDCARD 
suggested layout The drive cable is a short length of 40-wire 
flatcable with IDC plugs at either end. 

As there is space to span on the HARDBOARD the PT 
IDEIOO has two pins (FIRQ and RESET*) to interfiice with a 
DP8473 Ftoppy disk controller chip (FDQ &om National 
Semiconductor. The floppy disk registers map "below" the IDE 
controller registers in the I/O map. (More information on this 
extension will be available later. Only the chip, some resistors 
and caps, and a crystal is required.) llie DP8473 comes in a 52 
pin PLCC package and supports four drives; the 48-pin DIP 
version siq)ports 2 drives. 

Register addresses wiU be called "X3" or "XT': the "X" is set 
by the vsa to be through F to complete the 8-bit address. If 
a sixteen bit address is needed, the 74HCTS20 and the 8 
jumpers will select the upper 8 bits of the address. If an 
74HCT520 is not available, use an '521, '688 or an '689 but 
include 8 2.2k pullup resistors (fix>m the switch or jumper pins 
to +5 volts). 
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Comp list: 

U1 PT IDE100 

U2 7812 

U3 7805 

(U4 74ACT520) 

R1 330ohm 

R2 10k 

RP1-2 2.2kx8 

RP3 2.2kx4 

C1-2 47uF tant/electro 

C3-7 lOuF tant 

C8-14 O.luF 

JP1 4x2 (11x2 for 16-bit 10) 



AO-3 


READ 


WRITE 


xO 


FDC Status 


(4) 





Xl 


FOC Read Data 


(5) 


FDC Write Data (5) 


x2 






FDC Drive Control 


x3/7 


Disk Changed Bit 


(7) 


FDC Date Rate (7) 


X4 
xS 
x6 


Interrupt source 






IDE Status 2 




IDE Digital output 


x7/3 


IDE Drive Address 




FDC Date Rate 


X8 


IDE Read Data 




IDE Write Date 


X9 


IDE Error 




IDE Features 


xA 


IDE Sector Count 


(Read/Write) 


x8 


IDE Sector Number 


(Read/Write) 


xC 


IDE LSB Cylinder 


(Read/Write) 


xO 


IDE MSB cylinder 


(Read/write) 


xE 


IDE Drive, Head 


(Read/Write) 


xF 


IDE Status 1 


1 IDE Comnand 



x3 and x7 are the same register 
Table of I/O registers. 




Mechanical detail of the IDE connector 
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Suggested parts layout for HARDBOARD. 

Square pads' denotes: pin 1 in a connector / positive in a polarized cap / common in a resistor SIP 
Wide lines denotes copper strip or heavy gauge wire with soldered connections. 
Signal lines are not shown. 



Parts 


list: 




U1 




U2 




U3 




RP1-2 




R1 




C1-2 




C5-7 



PT S100IDE 

7805 or LM340T5 3-pin 5V lA regulator 

7812 or LM340T12 3-pin 12V 1A regulator (or 1.5A) 

8x1k SIP resistor pack, or 8 discrete Ik resistors each 

10k R2 470ohm 

22-4.7UF electrolyte C3-4 lOuF tantalum 

4.7-6.8UF tantalum C8-15 O.luF ceramic monolithic 
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Programming information 

Board address pins S4-S7 set the board's 16 byte I/O space. 
The raster table shows all registers vaUd with an IDE drive 
and the o|Mional FDC chip attached. There is some internal 
address remapping for the FDC that takes place on tiie IDEIOO 
chq> AB2 line. Numbers in brackets are the physical addresses 
sent to the FDC. Register address X7 and X3 addresses the 
same register - when read, bit 7 comes from the FDC and 
reflects the READY or DISK CHANGED line, while bits 0-6 
comes ttam the IDE and r^ects the coQq)lement of the cur- 
rently s^cted drive, head number and write gate. Writing to 
either address sets the FDC data rate (250/300/500/1000 kbps). 

The PT IDEIOO has an on-chq) interrupt register at X4 so that 
a single SlOO interrupt can service both FE)C and IDE. 

Data is processed in the same fashion as the old Western 
Digital tioppy controller chips. Writing to address XC through 
XF clears an internal data register and counter. The IDE drive 
requires that you write a command to address XF to start data 
transfiar, and that is sufficient for the PT IDEIOO chip. There 
is only (ne restriction when writing 16-bit data to sector buffer 
XF: You must write an even number of data bytes. The last odd 
byte will be lost if not followed by a second "even" byte. But, 
you can read an odd number of bytes from the buffer, for a 
partial sector read. 

Data is written and read in the order MSB (most significant 
byte) first, then LSB Oeast significant byte). For example, 
rea^ng the second word after an IDENTIFY command for the 
number of cylinders in the drive, you will read, say, 03, then 
D4. The cmect sequence of these is 03D4 hex, or 980 decimal. 
Hofwever, the IBM PC stores data LSB first, then MSB. If you 
read a drive written on an IBM PC, the DATA contained in the 
sectors will be "BippedT, byte for byte. 

The PT IDEIOO does not suRwrt the IDE "lOCHRDY' line, 
a wait signal to stop the CPU. CAM ATA set aside IDE pin 27 
f(H: it and declared it apdcsal. Seagate spedfies this pin as 
RESERVED. Some old drives, such as Conners, use pin 2 1 for 
lOCHRDY, some use 27, some both, some neither. 

Performance and tiniing 

The PT IDEIOO adds a SOns delay fiom PDBIN valid to data 
vaM Add to that the drive's access time for total read access. 
Nfeasured time for a lOMHZ HD641gO (Z180 like processor) 
anda Seagate ST351 40 MByte drive was 175 ns from address 
valid at the S-100 bus to data available at the bus. Write delays 
are similar. Measured fit>m address valid on the bus to data and 
lOWR* active at the drive was 140ns. As Seagate specifies 
40ns data hold time, total write time was 180 ns. 

Tte one timing constraint is that 1016* fiom the drive must be 
valid before PDBIN or PWR* is asserted by the S-100 CPU 
card. Normally there is ample time for this, and any problem 
is unlikely unless the CPU is veiy fast and the drive is very 



slow. If in doubt, add 28 ns to the drive's max address valid to 
I016* delay. 

Costs (written by Herb Johnson). (You are shortly going to see 
why the costs of tliis project discouraged me.) 

Cost of the PT IDEIOO chip will be $40.00 US, plus $5 for 
shipping from AustraUa. This price may shift due to fluctua- 
tions in both the Australian dollar and the U.S. dollar. A 
typical PLCC solder-tail socket is manufectured by Aries Elec- 
tronics as part 68-535-10: Digi-Key carries this as A419-ND 
for $2.43 each. You'll need a PLCC extraction tool to remove 
the PLCC chip: a screwdriver will break the socket. Digikey 
carries a tool from OK as a "universal PLCC extraction tool", 
number K293-ND, for $19.75. The 74HCT520 is not in the 
DigiKey catalog, but the 74HCT688 is for $1.07. Of course, 
you'll need resistors, caps, IC sockets, etc. 

I did not see S-100 prototype cards in the DigiKey catalog. 
These are S-100 boards that are all drilled out with tenth-inch 
holes, and a gold-plated edge connector with pads to each pin 
for soldering. Vector still makes them as part number 8804 
(with ground/power busses) or 8801-6 (blank). My Newark 
catalog shows these priced at $43.21 (8804) and $57.57 (8801- 
6)! I have several new 8804 cards that I'd sell for $30 each. 
You may want to shop arotmd: old electronics parts stores 
probably have these hanging around. Ask DigiKey if they will 
special-order it. 

I had hoped to offer a pre-etched and drilled printed circuit 
board for this project. However, the one disadvantage of S-100 
cards - their large size, originally a plus for 1980-class technol- 
ogy - stood as the biggest obstacle. For a run of several cards, 
just based on the SIZE of the card, 1 have been quoted about 
$45 to $60 each, depending on methods used. And, some of 
those quotes do NOT include plating the "fingers", or edge 
connector! 

One way or another, you can see this project will be over $100 
in parts and tools. Nonetheless, 1 will act as Palmtech's "dis- 
tributor" for chips and information. Palmtech is using a ver- 
sion of this chip in one of their products, so they will remain 
interested in its S-100 use. Claude regularly uses S-100 for 
prototyping! For our overseas readers, I'll also include Claude's 
address and phone. 

Heibert R Johnson 

CN 5256 #105 

Princeton NJ 08543 

(609) 771-1503 

Internet hjohnson@pluto.njcc.com 

Claude Palm, Palmtech 
cnr Moonah & Willis Sts. 
Boulia, QLD. 4829 AUSTRALIA 
voice 077-463-109 
(no net address) 
fax 077-463-198 
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Persmiality decoder board Part 2, for 
All DSDD CP/M Kaypros ercept K- 
4x, and Robie 

WHEREIN we shall coiiq>lete the con- 
stiuction project started two issues ago, 
and install it, therd>y completing yet 
one more Step in the transmogrification 
of Darth Vader's lunch box. 

For those amongyou who have just joined 
us, (and those who, like me, only have a 
64k memoty) we started this project two 
issues back, by etching a printed circuit 
board using copier toner for photo-re- 
sist, and collecting the rest of the neces- 
sary parts. We also discussed a second 
option of using a commercially available 
prototype circuit board. The schematic 
diagram fix>m which we are woricing 
was also published. We did not however 
get into the theory of operation. We shall 
remecfy that oversight now. 

THEORY of OPERATION 

The circuitry on the Personality Decoder 
board is divided into three distinct fiinc- 
tions; The Personality part dealing with 
telling the BIOS how many and what 
variety of drives are installed, the actual 
Decoder part that separates the "drive 
select" signals and routes them to the 
proper drive, and a timing circuit that 
allows a "fest step" cation for those drives 
that can handle it. 

PERSONALITY 

The 8 position dip switch, 4.7k ohm 
resister pack, and the 74LS151, IC2, 
comprise the Personality section. When 
one of the switch sections is closed it 
pulls the corresponding pin of 1C2 low. 
Various combinations of pins "pulled 
low" result in a discrete number being 



transmitted back to the BIOS via the 
"read" line firom pin 6. When a drive is 
selected for reading or writing, the 
TurboBios interprets the number returned 
on the ready line to determine whether 
or iK)t the drive is installed, and what 
type it is. 

DRIVE SELECT 

The decoding is handled by IC3, the 
744S. It takes the inputs from the drive 
A and drive B lines, combined with 
"motor on" signal and transmits a signal 
on pins 5,6,7,br 9 which are routed to 
the fom select lines on floppy drive cable 
via connector J2. The TurboBios desig- 
nates four drive select signals on two 
lines by using the "both on" and "both 
off' states as well as "A only on" and "B 
only on" and IC3 figures out what it 
really means. 

NOTE: If this project is intended for a 
K-10 You should not install the DRV B 
select line between J 1 pin 12 and IC3. 
The coimection and pull-up resistor be- 
tween 1C2 and IC3 should be installed 
however. The reason is that the BDOS 
for the K-10 uses the DRV B select line 
is used to access the hard-drive. 

After installation the floppy drives will 
the first and third logical drives and the 
dip switch should reflect this. 

A FASTSEEK option is included for 
those flq)py disk drives that are capable 
of stepping faster than 6ms per track. 
Use of the FAST SEEK option (FSO) 
can lead to significant speed improve- 
ments and noise reduction when used 
with some drives. For those who are 
curious, it's the series capacitor, reduc- 
ing the time constant that does the trick. 
THIS OPTION ONLY WORKS WITH 



THE TURBOROM. It is NOT conqat- 
ible with any other ROM including the 
original Kaypro ROM, NOR is it com- 
patible with any software which directly 
accesses the floppy disk controller, such 
as Uniform, Media Master, or Fastback. 
To use the FSO and these programs on 
the same conqmter, you must use a single 
pole double throw toggle switch as de- 
scribed in note 6, Section E.6. page E-7, 
of the TurboRom Manual. 

SIDE SELECT 

The schematic also shows a "side select" 
line for K-II/83 onfy. This was included 
in the design for those who had not yet 
done the II to 4 upgrade yet, or who were 
doing it in conjunction with the installa- 
tion of the Personality Decoder board. 
The K-II/83 mother-board did not in- 
clude a trace to pin 32 of the floppy 
connector, and this is a relatively pain- 
less way to do it. It can be included or 
not at your discretion. 

ON TO CONSTRUCTION: LAYOUT 

For those of you who etched the custom 
circuit board, layout is easy, just put the 
piapcT component in the holes as la- 
beled on the circuit board, and rejoin us 
a few paragraphs later. 

This stage can make assembly very easy 
or more intricate, dq)ending on your 
own proclivities. There are several 
choices, ranging fi-om "let's just get this 
thing together as painlessly as possible" 
to "WOW, how did you do that?" Ob- 
serve Figure 1. This is a representation 
of the "top" (non-solder) side of the 
Syntax PC-462905 Uni-Board mentioned 
in the first half of this project. 

Each group of three holes in each row is 
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in one solder pad, so three leads can be 
connected by putting one in each hole 
and soldering it on the back side. This 
will make life a great deal easier (as I 
learned fiom an HCW piGHLY CER- 
TIFIED WIZARD]). There are also two 
"busses", each consisting of half the 
perimeter holes and lines of holes be- 
tween the three hole pads, also making 
life a little easier. The holes on the board 
outside the boundaries of the drawing 
were omitted, because we don't need 
them. Now, the choices, the bus on the 
t(^ and light sides will be the "ground" 
biK, and the bus on the left and bottom 
sides will be the "power" bus. For ease of 
construction, the "ou^ut" header, J2, 
will be idaced so that one row of pins is 
in the ground bus, and the other row is 
in the first (left-most) column of "three"s. 
This is convenient because, checking the 
schematic diagram, all the even-num- 
bered pins must be grounded. 

Jl and the "dip" switch will be placed 
using the same consideration. The other 
soctets are 4-holes wide, so if we place 
them over the center line of the three 
hole columns we lose one hole each pad, 
but, if we place them so as to straddle the 
ground and power busses, we won't use 
up any more holes than necessary, mak- 
ing wiring easier. Figure 2 shows the 
result as seen fiom the top. Jl is the 
final area where choices are important. 
PeiluqK the most elegant solution is to 
put Jl on the bottom side of the circuit 
board, so that the finished board will just 
plug onto the motherboard, and the ex- 
isting cable will plug onto J2. The di£B- 
culty encountered here is "side-solder- 
ingT a connector not intended for side- 
sokfering. It can be done, by pulling the 
pins &t enough out of the connector 
shell so they can be sokkred, but so that 
the plastic dieU will still maintain the 
alignment of the pins, and by using a 
block under the board to keep the pins 
firom fiilling all the w^ into the holes 
until they are soldered, side-soldering 
the pins, and then pushing the plastic 
shell back down on the pins. 

A second q>ti<« is to just put Jl on top 
of the board, solder it on the bottom and 
I^ug the finished imxiuct onto the mother 
board upside dowa The disadvantage 
here is that one must remove the person- 



ality-decoder board completely to 
reconfigure it. The third option and per- 
haps most reasonable compromise would 
be to put another header at the J 1 loca- 
tion and use a cable to connect it to the 
mother-board. The caveat here is to make 
sure that Jl and J2 are clearly labeled, to 
eliminate confusion when doing the fi- 
nal installation. 

Once you've decided on the layout, put 
the conqmnents in place, invert the board 
(you might want to use a folded towel to 
put it on, to compensate for component 
thickness) and solder the pins at the 
diagonal comers of each component. 
Soldering only the diagonal pins now 
will allow for inspection of the result 
and adjustment if necessary (adjusting 
one pin is a lot easier than de-soldering 
all 14 or 16. When you install the header 
at J2 (also at Jl if that's your choice), if 
you use a right angle header as I did, just 
let the pins barely protrude fi-om the 
bottom of the circuit board, so that there 
will be enough room to put the plug on 
when you're finished. 

With the position of the dip switch shifted 
to take advantage of the ground bus, one 
column of holes is covered up. Installa- 
tion of the strip resistor on the bottom of 
the circuit board using these holes (with 
the "dot" end toward the bottom [power 
bus end] of the board) will free up the 
last holes in the pads for wiring, so that 
there will only be one lead in each hole. 

So endeth the layout portion of the 
project. 

WIRING 

Bef(M% we really get too involved, you 
might want to make at least two copies 
of the schematic diagram, and two of 
Figure 3. We'll use one of each during 
the wiring phase, and another during 
the checking phase. Some colored pen- 
cils (not all red, but at least three diiBfer- 
ent colors) and a highUghter will also 
come in handy. 

What might at first have seemed to be a 
real chore, has been greatly simplified 
by the choices we made dining layout. 
For instance, all the ground connections 
to J 1 , and J2, have already been made, as 



have the connections fix)m the resistors 
to the dip switch. 

So here we go! First things first, the 
power and ground connections to the 
three ICs. Following the table on the 
schematic and remembering that IC pins 
are numbered counter-clockwise from the 
notch when viewed from the TOP, make, 
install and solder jumpers from the power 
and ground busses to the appropriate 
pins of the IC sockets. All wiring can be 
done on the top of the circuit board, but 
a more elegant solution here is to use 
bare wire jumpers on the bottom of the 
board from the appropriate pin to the 
bus, which is right next door, so to q)eak. 
While we are in the neighborhood, a 
similar jumper from the poweibus to the 
resistor would be appropriate. See Fig- 
ure 3. 

SOLDERING 

Perhaps a short refresher on soldering is 
appropriate here. (All you HCWs can 
take a short n^ now) For the rest of us, 
as a general rule, the smaller the solder- 
ing iron the better, and Radio Shack 
varieties woric as well as the higher priced 
^read. Thermostatically controlled, vari- 
able temperature irons are very nice for 
commercial applications, but not neces- 
saiy for us AWs (Apprentice Wizards). 
My fevorite weapon is a 15 watt refiigee 
from Radio Shack, which has a very fine 
tip, and is light enough to be very handy. 
It will probably not last more than 5 
years, but I'll be ready for a change by 
then anyway, and it was veiy inexpen- 
sive. 

Eutectic solder (63/37) works the best, 
but 60/40 is an acceptable substitute. 
Rosin flux is the only way to go and a 
small can will last almost forever. Heat 
up the iron, tin (or re-tin) the tip (dip the 
tip in the flux, cover it with solder and 
wipe it ofiT with an old piece of damp 
towel) and we're ready to press-on. 

Hold the tip against the lead or pin pro- 
truding from the solder pad, count three 
and apply the solder. Not much, just 
enough to fill the hole, remove the iron 
and proceed to the next one. 
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The numbering of the pins of J 1 depends 
on whether you used a header, or a sodcet 
Headers are numbered from left to right 
with odd pins on the top and even on the 
bottom. Sockets on the other hand are 
niunbered from right to left, again with 
the odd pins on the top, and the even 
pins on die bottom. 

Starting with pin 10 of Jl, run a wire to 
pin 13 of IC3. Run another wire from 
the remaining hole at pin 13 of IC3 to 
pin 11 of IC2. Run a 4.7k ohm resis- 
tor from the remaining hole at pin 11 
of IC2 to the power bus. See Figure 
4. Grab your highlighter, and one of 
the duplicate schematics and high- 
light the circuit you just wired. It 
should be labeled DRV A on the sche- 
matic. Now start at pin 12 of Jl and 
using the same procedure run the 
DRV B select line, and all the rest of 
the circuits as shown on the sche- 
matic, highlighting each circuit as 
you put it in. 

A SMALL HINT 

Before you start running wires, you might 
want to use one of your diq)licate copies 
of Figure 3 and your colored pencils to 
decide how to route the wires, and where 
to put the resistors. The way we ran the 
DRV A line is not the way that's shown 
on the schematic, but electrically they're 
the same. We could have put the resis- 
tors from the extra hole at pins 10 & 12 
at Jl to the nearest power buss (See 
Figure 4) and it would still be electri- 
cally the same. The reason we can get 
away with it is that we're working at 
relatively low frequencies and with rela- 
tively short conductor paths. 

TO CONTINUE 

When you get to the SIDE SEL, 
READY, VCC, and FAST SEEK lines. 
Radio Shade sells a set of "Micro-clip 
test leads" which are very inexpensive 
and which do the job ideally. They come 
as a pair, and are about 12 inches long. 
Cut them in half and you'll have the four 
leads you need, except that two will be 
black, and two will be red. Pieces of 
masking tape or spots of plastic model 
paint on the clips will handle the label- 
ing. 



When the schematic diagram is com- 
pletely highlighted, you are finished with 
the wiring phase and it's time for IN- 
SPECTION. 

INSPECTION 

This is our last line of defense against 
catastrophes. Actually, it isn't all that 
bad. We're only working with 5 volts, 
and even inverted polarity won't smoke 
anything. That isn't always true, but with 
these conqx)nents, we're lucky. 

Using the second duplicate schematic as 
a reference, check each conductor's end- 
poiids on the circuit board and as you 
find them correct, highlight the conduc- 
tor on the schematic diagram This may 
seem redundant, but it's the only way to 
be sure. 

TESTING 

The easiest and scariest part, will it, or 
won't it? Nothing left to do but take the 
bull by the hdms. Install the board as 
you plarmed either by plugging it onto 
the motherboard, or using an auxihaiy 
cable (don't forget to insulate the bot- 
tom) and plug the 34 conductor ribbon 
drive cable onto it. Set the switches ap- 
propriately, and now it's time to deal 
with the clip leads. 

The READY line 

Find and careftilly remove the flq)py 
controller. It will be a 40 pin flat pack 
IC, designated as U-82 on '83 models, 
U-44 on '84 models, and U-74 on K-10 
'83 models. Carefully bend out pin 32 to 
about a 45 degree angle and reinsert the 
floppy controller into its socket match- 
ing the notch in the IC with the notch in 
the socket. Connect the READY 
niicroclip to pin 32, the one you just bent 
out. 

VCC 

The Personality/Decoder board must be 
supplied with +5 volt DC power. This is 
done by connecting the VCC microclip 
to pin 14 of U-86 on '83 models, pin 14 
of U-72 on '84 models, or pin 16 of U- 
32 on K-10 '83 models. 



If you have installed 96tpi drives, you 
can install the FAST SEEK option. It is 
a two step process, first connect the FAST 
SEEK microclip to pin 22 of the floppy 
controller by removing the IC, bending 
out the pin (22) and reinserting the IC 
into its socket (see "The READY Line" 
above ), and second, use TURBOCFG to 
specify the appropriate step rate. See 
your TuiboRom manual Chapter 4 for 
particulars. 

SIDE SELECT 

If this installation is part of a K-II to K- 
IV upgrade project, AND the K-II has 
not been modified to use double-sided 
drives, cut the conductCM* identified as J3 
on the schematic and connect the SIDE 
SELECT microclip to pin 13 of U-72. 

If Your Computer is already using 
double-sided drives, remove this 
microclip lead to prevent inadvertent 
shorts. 

NOW 

Power up the computer, the power LED 
will light, the disk drive should run, and 
the Drive A LED should light. 

WHAT TO DO IF IT DOESN'T 

First turn off the power and disconnect 
the power cord, then do a physical in- 
spection, making sure that the right ICs 
are in the proper sockets, and none of 
the pins got folded under. Second, re- 
inspect the wiring, using the schematic, 
paying close attention to any solder that 
might have sneaked over onto a forbid- 
den solder pad creating an unplanned 
short-circuit. Third, unplug the ribbon 
cable to the drives and check that the 
select line for FDl is high (5.0 V) ini- 
tially but goes low (0) when the com- 
puter tries to boot. If it does, but the 
computer still won't boot, recheck the 
dip switch to make sure that sw2 is set 
for the drive you have as DRV A. The 
next suspect is the ribbon cable itself. 

As a last resort you can reach me week- 
ends and evenings at (916)483-0312, 
or CompuServe 73664,2470, or 
Internet 73664. 2470@cis. GOOD 
LUCK AND HAPPY SOLDERING :) 
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By Rick Rodman 



32-Bit Systems 

All Readers 

TCP/IP & 32 Bit News 



Tiny-TCP, the RS-485 network. Linux 
1.1, ondFreeBSD 

Tiny-TCP 

I'm still hard at work porting TinyTCP 
to the Xerox 820, using the Eco-C com- 
piler for the Z-«0, as I mentioned last 
time. One problem I ran into was the 6- 
character significance limit on the CP/ 
M side, with the assembler and the com- 
piler both. I hadn't worked with this 
limitation in a long time. This has meant 
that many names have had to be changed 
throughout the source, so the source files 
are changing rapidly. I had hq)ed to be 
able to substitute only one driver, XSIO, 
for the CASYNCMS serial driver. This 
driver uses interrupts both for sending 
and receiving. 

1 do intend to port this package to my 
NS32 system, the CompuPro CPU- 
32016-based machine running Bare 
Metal, once it is working on the Xerox. 
Since that's an S-100 system, I can add 
lots of serial ports to it with no difficulty. 
As you may recall, the NS32 CPUs, like 
Morotola-family CPUs, have no sepa- 
rate I/O q)ace; the S-100 I/O space is 
vaauppeA into the memoiy region FEOOOO 
toFEFFFFhex. For most S-100 boards, 
only the low byte of the address is 
checked. 

One reader suggested that we consider 
parallel-port Ethernet gizmos rather than 
using SLIP links. Linux includes driv- 
ers for some of these gizmos, which we 
could easily modify and use, and the 
Claikson University folks have drivers 
for some of them as well. I'd have no 
problem lashing one of them to a PIO, 
either in the Xerox or an S-100 ma- 
chine, but the problem is that these 
gizmos are quite expensive. 



I'd like to add that one of our rules 
regarding this package is that it must 
not be allowed to become big and com- 
plicated. If we wanted something big 
and complicated, we would have started 
with KA9Q or something like that. 
Nevertheless, at some point, we could 
investigate UDP (User Datagram Proto- 
col), a connectionless protocol which sits 
dAopW. There is a Trivial FTP (TFTP) 
which rides on top of UDP rather than 
TCP, and NFS rides on top of UDP also. 

RS-485 network 

Tilmann Reh sent me a TIFF file of his 
prqx)sed RS-48S bus interface, which 
should be displayed alongside. Please 
consider this schematic. 

On the RS-232 end, two optoisolators 
(Kl and K2) are used to isolate the com- 
puter from noise spikes induced into the 
network cable or various power circuits. 
Data out fiom the computer (TXD) drives 
the LED of the lower optoisolator (K2) 
for data going out onto the network; 
since the TXD line rests at logic 1 (- 
12V), the LED is normally off. Data 
coming back in drives the upper isolator 
(Kl). The RXD line is pulled down 
most of the time, swinging between 
ground and +5. This should woik in 
most cases; in other cases we may need 
to swing negative. 

The collector of the optoisolator Kl is 
powered by DTR or RTS, which must be 
programmed to logic 0, causing it to 
swing positive. Is this logic true or 
false? I think it's logic true, but there 
are so many inversions I'm not sure. 

When data is sent, a monostable is trig- 
gered, which is labelled ICl and should 
be a 74HCT123 (not -132). The unused 



inputs mentioned are pins 5, 6, 7, 9, 10, 
and 1 1 . This device is triggered by the 
start bits of the data. As mentioned 
previously, all we need to do from the 
software stanc^int is to send an FF hex 
byte before the data. The software has to 
listen before sending data to make sure 
the bus is idle, and examine received 
data as it is sent to make sure there was 
no collision. 

Sending and receiving on the RS-485 
bus is accomplished by the LTC-485, 
IC2. Tihnann comments that the 75 176 
is cheaper. 

The actual bus is a 4-pin connector. I 
would suggest using modular telephone 
caWe, using RJ-11 (6 pin with 4 pins 
wired). However, because of the pro- 
pensity of these cables to be sometimes 
twisted, sometimes not, we might want 
to think about this a little first. (Are 
modular telephone connectors used in 
other countries?) 

At one end of the bus would be a wall 
transformer supplying +5 volt power to 
the devices on the bus side. I think a 
terminating resistor is required as well. 

Digi-Key lists the 6N139 at $1.63, the 
74HCT123 at $0.80, and the LTC485 at 
$2.25; throwing in a couple of dollars 
for resistors, caps and diodes, the total 
cost per node would be about $8. At 
levels such as these, labor and packag- 
ing costs gready outweigh components 
costs. Anyone interested in making a 
small PCB? 

Linux 1.1 

Plug and Play Linux, from Yggdrasil 
and available less expensively fmm other 
dealers, is the best Unix for PCs avail- 
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able, and one of the best operating sys- 
tems available overall. When you con- 
sider the price, there's no comparison at 
all. 

The first thing you notice in this pack- 
age is the excelloit manual. This manual 
goes through the installation step-by- 
$tep, 19 to a certain point. All the bugs 
in the version 0.99 have been cleaned 
up, and the cm-screen instructions greatly 
inqntjved. There is now a "custom" 
in^aUati(Hi option which requires around 
35 megabytes of hard drive, a nice fit 
between the 2 megabyte Q)-dependent 
and the 600 megabyte source-type in- 
stallatiorL 

I have a Dell machine with a PS/2 bus 
mouse, an ATI 8S14-clone video board, 
a SOO MB IDE hard drive which I want 
left alone, and a 128-megabyte remov- 
able q>tical (MO erasable) drive. I had 
no pn4>lem at all installing Linux on the 
erasable optical (I had no problem with 
the earlier version, either). Everything 
went extemely smoothly. 

There were two gotchas. As in version 
0.99, 1 could not get the bus mouse to 
woricatall. While the old manual had 
several pages of most^^ unhelpful dis- 
cussion about different mice, the new 
manual s^ nothing about mice at all. 
Hug a MicrosoA-ccxnpatible serial mouse 
into one of your COM ports, and that'll 
v/atk. 

The other gotcha was the network card. 
As in version 0.99, again, the NE-2000 
driver will only siq^wrt interrupt 12. 
My board can't be set to interrupt 12; 1 
can choose fit)m 3, 4, 5, or 2 (9). Of 
these, the only usable (»e is 5. Unfortu- 
nately, the Linux driver doesn't allow 
me to select the intemqrt. 

Obviousfy, having source to everything, 
I could modify the drivers and fix both 
of these problems (assuming I can find 
out where the bus mouse is located, which 
may not be easy givoi the typicalfy sparse 
documentation cm PC hardware). 

You're supposed to be able to use an 
SMC (Western Digital) Ethernet card; 1 
have a coiq>le of these, but th^'re in use 
in other machines at the moment. So, I 



wasn't able to test the networking. Linux 
supports 2 SLIP channels, so it could be 
used as a router for our TinyTCP net- 
work. 

The X Window package provided is not 
just the basic X stuff, but includes a 
window manager called "fvwm" which 
lodes very nice, X-window-compatible 
editors and lots of utilities, and some 
games - such as the beautiful and addic- 
tive Pool, which accurately simulates a 
pool table and has consumed more of my 
time than I care to mention. 

Most outstanding is a "control-panel" 
program which allows you to interac- 
tively configiue network addresses, in- 
stall additional software to the hard drive, 
and make various changes to the system. 

All the Gnu software is here, including 
Gnu EMACS and GCC. Also, there is a 
multimedia packa^ called "Andrew" 
which looks very interesting; it's sup- 
posed to be some kind of hypertext sys- 
tem with photos, movies, sound, and so 
on. By the w^, several sound cards are 
supported; the speaker is used if there's 
no sound card. 

There's a tremendous amount to explore 
here: an Image Magic viewer, the MPEG 
player, lots of sample X window code, 
PBM, Ghostscript... and source to every- 
thing. 

FreeBSD on the PC 

I've also tried another PC Unix supplied 
on CD-ROM, FreeBSD fi-om Walnut 
Crede CD-ROM. While similar in con- 
cept to Plug-and-Play Linux, this is a 
real BSD Unix kernel which comes with 
many of the same tools and X Window, 
and again, source for everything. There 
is no printed manual; all you get is oitline 
documentation. 

The CD has what are called "Rock Ridge 
extensions". By this technicpie, if the 
CD is loaded on a Unix machine, the 
machine sees Unix-style mixed-case 
longer filenames; on a DOS machine, it 
sees DOS-style uppercase-only 8.3 
filenames. This makes this CD useful, if 
not for aiQthing else, as a nice source 



archive of Unix tools which can be 
recompiled on the Sun. 

FreeBSD had no problem with my 
NE2000 on interrupt 5. However, it re- 
fused to recognize the removable optical 
drive and, therefore, tried to install itself 
on the CD-ROM, which, of course, didn't 
work. There's little you can control 
during the installation process to say, 
'Hey, you're making a mistake here', so 
that's as far as 1 could get. 

Magneto-optical drives have been around 
for quite some time, so it's rather hard 
for me to believe that any operating sys- 
tem written since 1985 or so would have 
any trouble with them. Someday, I sup- 
pose, I'll get around to coimecting up a 
magnetic hard drive to try out FreeBSD. 
At this point, I can't imagine it having 
much to recommend it over Linux. 

Those of you who don't really want to 
get involved with modifying the operat- 
ing system may want to consider Mark 
Williams' new version of Coherent, 
which is available with X Window. It 
doesn't come with any source, but that 
may be alright for you. You don't need 
a CD-ROM - in these days of 20-dis- 
kette-plus installations, it installs from 
just 5 diskettes. I've mentioned before 
that Coherent is a mature, stable system 
which can easily be used in place of 
Unix in many applications. 

For those of you who want to use X but 
don't want to have to learn Unix as well, 
thepadcage for you may be Quarterdeck's 
Desqview/X. I 've been told it now comes 
with a TCP/IP stack and a GCC-based 
developer's kit, so there's nothing else 
you nosd to buy. 

Next time 

Don't you hate it when columnists whine 
about having too much to say, so you'll 
have to wait for the next issue for that 
siq)er-interesting topic you really wanted 
to read about? Er - well, owing to space 
considerations, the matter of CD-Record- 
able will have to wait til next issue. 
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Where to call or write 

Real Computing BBS or Fax: +1 703 330 9049 

E-mail: rickr@aib.com 

Mail: 8329 Ivy Glen Court, Manassas VA 22110 

Digi-Key 1-800-DIGI-KEY (1-800-344-4539) 

701 Brooks Ave. South, POB 677, Thief River Falls MN 

56701-0677 

Plug-and-Play Linux 1.1 - $39.95 
Yggdrasil Computing, Inc. +1 510 526 7531 
P.O. Box 8418, Berkeley CA 94707-8418 

Also available fiom: 

Just Computers! +1 707 769 1648 

P.O. Box 751414, Petaluma CA 94975-1414 

FreeBSD $39.95 

Walnut Credc CD-ROM +1 510 674 0783 

1547 Palos Verdes Mall Suite 260, Walnut Creek CA 94596 

Coherent $99.95, with X Window[s] $149.95 

Mark Williams Company +1 800 636 6700 or +1 708 29 1 6700 

60 Revere Drive, Northbrook IL 60062 

Desqview/X ^ 

Quarterdedc Office Systems 

150 Pico Boulevard, Santa Monica CA 90405-9852 



^ LINUX $2995 ^ 

Yggdrasil CDROM 
Plug-and-Play * New Release 

X window Systwn 

TCP/IP, NFS and othw pralocoto 

CMU C, &f+, OilMr LanguaflM 

Taylor UUCP, kamlt, ZModam 

Blnarlaa and Soure* Coda 

Support* Most CDROM Drfvaa 

Just Computers! 
(707) 769-1648 

FAX: (707) 765-2447 

P.O. Box 751414 

Petaluma, CA 94975-1414 

linuxOJustcomp.coni 

Visa/MasteiCard 

For auto-tnloimaUon, send e-mail to 

InfoOJustoomp.oom 
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MOVING FORTH 



by Brad Rodriguez 



Part 6: tbe Z80 high-level kernel 

ERRATA 

There are two gx>£s in the CAMEL80. AZM file I presented in 
TCJMl. The minor goof is that the name length ^)ecified in 
the HEAD macro for the Forth wwd > was incorrectly typed 
as 2 instead of 1. 

The major goof results firom a subtlety of CP/M console I/O. 
KEY must not echo the typed character, and so used BDOS 
function 6. KEY? used BDOS function 1 1 to test non-destruc- 
tively for the presence of a keypress. Unfortunately, BDOS 
function 6 does not "clear" the keypress detected by function 
III I have now rewritten KEY? to use BDOS function 6 (see 
Listing 1). Since this is a "destructive" test, I had to add logic 
to save the "consumed" keypress and return it ^en KEY is 
next used. This new logic can be used whenever your hardware 
(or (qwrating ^stem) provides only a destructive test-for- 
keyisess. 

HIGH LEVEL DEFmiTIGNS 

In the last installment I did not expound greatly on the source 
code. Each Forth "primitive" performs a miniscule, sharply- 
defined fimctioa It was almost all Z80 assembler code, and if 
it wasn't obvious v/hy a particular word was included, 1 hope 
it was clear what each word did. 

In this installment I have no such luxury: I will present the 
high level definitions which embody the elegant (and tortuous) 
logic of the Foth language. Entire books have been written 
[1^,3] descrilxng Forth kernels, and if you want complete 
mastery I highly recommend youbuy one of them. ForTOI'll 
limit n^self to some of the key words of the compiler and 
inteipreter, given in Listing 2. 

TEXT INTERPRETER OPERATION 

The text w "outer" interpreter is the Forth code which accepts 
iiqiut fitnn the keyboard and performs the desired Forth opera- 
tions. (This is distinct fi'om the address or "inner" interpreter, 
NEXT, which executes compiled threaded code.) The best way 
to understand it is to work through the startup of the Forth 
system. 



1. The CP/M entry point (see listing in previous installment) 
determines the top of available memory, set the stack pointers 
(PSP,RSP) and user pointer (UP), establishing the memory 
map shown in Figure 1. It then sets the "inner" interpreter 
pointer (IP) to execute the Forth word COLD. 

2. COLD initializes the user variables from a startup table, and 
then does ABORT. (COLD will also attempt to execute a 
Forth command from the CP/M command line.) 

3. ABORT resets the parameter stack pointer and does QUIT. 

4. QUIT resets the return stack pointer, loop stack pointer, and 
interpret state, and then begins to interpret Forth commands. 
(The name is apt because QUIT can be used to abort an 
application and get back to the "top level" of Forth. Unlike 
ABORT, QUIT will leave the parameter stack contents alone.) 
QUIT is an infinite loop which will ACCEPT a line from the 
keyboard, and then INTERPRET it as Forth commands. When 
not compiling, QUIT will prompt "ok" after each line. 

5. INTERPRET is an almost verbatim translation of the 
algorithm given in section 3.4 of the ANS Forth document. It 
parses one space-delimited string from the input, and tries to 
FIND the Forth word of that name. If the word is found, it will 
be either executed (if it is an IMMEDIATE word, or if in the 
"interpret" state, STATE=0) or compiled into the dictionary (if 
in the "compile" state, STATEoO). If not found. Forth 
attempts to convert the string as a number. If successful, 
LITERAL will either place it on the parameter stack (if in 
"interpret" state) or compile it as an in-line literal value (if in 
"con^ile" state). If not a Forth word and not a valid number, 
the string is typed, an error message is displayed, and the 
interpreter ABORTs. This process is repeated, string by 
string, until the end of the input line is reached. 

THE FORTH DICTIONARY 

Whoa! How does the interpreter "find" a Forth word by name? 
Answer: Forth keeps a "dictionary" of the names of all Forth 
words. Each name is connected in some fashion with the 
executable code for the corresponding word. 

There are many ways to store a set of strings for searching: a 
simple array, a linked list, a multiple linked list, hash table, etc. 
Almost all are valid here — all Forth asks is that, if you reuse 
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a name, the latest definition is found when you search the 
dictionaiy. 

It's also possible to have several sets of names CVocabularies", 
or "wordlists" in the new ANSI jargon ). This lets you reuse 
a name without losing its previous meaning. For example, you 
could have an integer +, a floating-point +, even a + for 
strings...one way to achieve the "operator overloading" so 
beloved by the object-oriented commimity. 

Each string may be connected with its executable code by being 
physically adjacent in memory — i.e., the name appears in 
memory just before the executable code, thus being called the 
"head" or "header" of the Forth word. Or the strings may be 
located in a totally different part of memory, and connected 
with pointers to executable code ("separate heads"). 

You can even have uruiamed ("headless") firagments of Forth 
code, if you know you'll never need to compile or interpret 
them ANSI only requires that the ANS Forth words be 
findable. 

The design decisions could fill another article. SufBce it to say 
that CamelForth uses the sinq>lest scheme: a single linked Ust, 
with the header located just before the executable code. No 
vocabularies... although I may add them in a fiiture issue of 
TCI. ' 

HEADER STRUCTURE (FIGURE 2) 

Still more design decisions: what data should be present in the 
header, and how should it be stored? 

The minimimi data is the name, precedence bit, and pointer 
(explicit or implicit) to executable code. For simplicity, 
CamelForth stores the name as a "counted string" (one byte of 
length, followed by N characters). Early Forth Inc. products 
stored a length but only the first three characters, for faster 
comparisons (the actual improvement gained is another hot 
debate). Fig-Forth compromised, flagging the last character 
with MSB high in order to allow either fiill-length or truncated 
names. Other Forths have used padced strings [4], and I 
suq)ect even C-style null-terminated strings have been used. 

The "precedence bit" is a flag which indicates if this word has 
IMMEDIATE status. IMMEDIATE words are executed even 
during compilation, which is how Forth in^}lements compiler 
directives and control structres. There are other ways to 
distinguish conq)iler directives — Pygmy Forth [5], for ex- 
ample, puts them in a separate vocabulary. But ANS Forth 
essentidly mandates the use of a precedence bit [6]. M^y 
Forths store this bit in the "length" byte. I have chosen to put 
it in a separate byte, in order to use the "normal" string 
operators on word names (e.g. S= within FIND, and TYPE 
within WORDS). 

If the names are kept in a linked list, there must be a link. 
Usually the latest word is at the head of the linked list, and the 



link points to a previous word. This enforces the ANSI (and 
traditional) requirement for redefined words. Charies Curley 
[7] has studied the placement of the link field, and found that 
the compiler can be made significantly faster if the link field 
comes before the name (rather than after, as was done in Fig- 
Forth). 

Figure 2 shows the structure of the CamelForth word header, 
and the Fig-Forth, F83, and Pygmy Forth headers for compari- 
son. The "view" vield of F83 and Pygmy is an example of other 
useful information which can be stored in the Forth word 
header. 

Remember: it's important to distinguish the header from the 
"body" (executable part) of the word. They need not be stored 
together. The header is only used during compilation and 
interpretation, and a "purely executable" Forth qq>lication 
could di^nse with headers entirely. However, heaiters must 
be present — at least for the ANSI word set — for it to be a 
le^ ANS Forth System. 

When "compiling" a Forth system from assembler source code, 
you can define macros to build this header (see HEAD and 
IMMED in CAMEL80.AZM). In the Forth environment the 
header, and the Code Field, is constructed by the word CRE- 
ATE. 

COMPILER OPERATION 

We now know enough to understand the Forth comfnler. The 
word : starts a new high-level definition, by creating a header 
for the word (CREATE), changing its Code Field to "docolon" 
(ICOLON), and switching to compile state Q). Recall that, in 
compile state, every word encountered by the text interpreter is 
compiled into the dictionaiy instead of being executed. This 
will continue until the word ; is encountered. Being an 
IMMEDIATE word, ; will execute, compiling an EXIT to end 
the definition, and then switching back to interpret state ([)■ 

Also, : will HIDE the new word, and ; will REVEAL it (by 
setting and clearing the "smudge" bit in the name). This is to 
allow a Forth word to be redefined in terms of its "prior selT. 
To force a recursive call to the word being defined, use 
RECURSE. 

Thus we see that there is no distinct Forth "compiler", in the 
same sense that we would speak of a C or Pascal compiler. The 
Forth compiler is embodied in the actions of various Forth 
words. This makes it easy for you to change or extend the 
compiler, but makes it difficult to create a Forth ^plication 
without a built-in conq)iler! 

THE DEPENDENCY WORD SET 

Most of the remaining high-level words are either a) necessary 
to implement the compiler and interpreter, or b) provided 
solely for your programming pleasure. But there is one set 
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which deserves special mention: the words I have separated 
into the file CAMEL80D.A2M (Listing 3). 

One of the goals of the ANSI Forth Standard was to hide CPU 
and model dependencies (Direct or Indirect Threaded? 16 or 
32 bit?) from ttie application programmer. Several words were 
added to the Standard for this purpose. I have taken this one 
step further, attenq)ting to encapsulate these dependencies 
even within the kernel. Ideally, the high-level Forth code in the 
file CAMEL80H.AZM should be the same for all CamelForth 
targets (although different assemblers will have different syn- 
tax). 

Differences in cell size and word alignment are managed by 
the ANS Forth words ALIGN ALIGNED CELL-i- CELLS 
CHAR+ CHARS and my own addition, CELL (equivalent to 
1 CELLS, but smaller when compiled). 

The words COMPILE, !CF ,CF !COLON and ,EXIT hide 
peculiarities of the threading model, such as a) how are the 
threads represented, and b) how is the Code Field inq)le- 
mented? The value of these words becomes evident when you 
l(Kk at the differences between the direct-threaded Z80 and the 
subroutiiie-threaded 8051: 

word conqnles onZSO coiiq>ileson 8051 

COMPILE, address LCALL address 
!CF CALL address LCALL address 
,CF ICF & allot 3 bytes !CF & allot 3 



bytes 



iCOLON CALLdocolon nothing! 

,EXIT address of EXIT RET 



(ICF and ,CF are different for indirect-threaded Forths.) 

In similar fiishion, the words 3RANCH J>EST and !DEST 
hide the inq>lementation of high-level l»anch and loop opera- 
tors. I have tried to invent — without borrowing firom existing 
Foithsl — the minimal set of operators which can factor out all 
the inq>lementation differences. Only time, expert criticism, 
and many CamelFraths will tell how successfiil I've been. 

So fiur I have not been successful fEtctoring the differences in 
header structure into a similar set of words. The words FIND 
and CREATE are so intimately involved with the header 
contents that I haven't yet found suitable subfactors. I have 
made a start, with the words NFA>LFA NFA>CFA IMMED? 
HIDE REVEAL and the ANS Forth words >BODY IMME- 
DIATE. I'll continue to woric on this. Fortunately, it is 
practical for the time being to use the idoitical header structure 
on all CamelForth in4>lementations (since they're all byte- 
addressed 16-bit Forths). 



NEXT TIME... 

I will probably present the 805 1 kernel, and talk about how the 
Forth compiler and interpreter are modified for Harvard archi- 
tectures (computers that have logically distinct memories for 
Code and Data, like the 8051). For the 8051 1 will print the 
files CAMEL51 and CAMELS ID, but probably only excerpts 
from CAMELS IH, since (except for formatting of the assem- 
bler file) the high-level code shouldn't be different from what 
I've presented this issue... and Bill needs the space for other 
articles! Don't worry, the full code will be uploaded to GEnie. 



rZOOU I. HO CP/M OMHIORIH MIKOIY ItU 
asBuiing CP/N BDOS starts at EDOO hex. 
0000 
0080 



0100 



'1700 



EBOO 



ECOO 



EC28 



EC80 



EDOO 



FTFF 



CP/N Stuff 



Tenlnal Input Buffer 

i 



CanelForth Z80 kernel 



User definitions 
I 



Dser Area 
I 



f 



Paraieter Staclc 



t 
HOLD vorking buffer 



PAD buffer 
i 



Leave stack* 
i 



t 



Return stack 



CP/M 



/ EBOO reserved 

/ EB02 >II 

/ EB04 BASE 

/ EB06 STATE 



\ EB0A,EB0C 'SOURCE 
\ EBOE LATEST 
\ EBIOIP 
\ EB12 LP 



used during coq[>ilation of DC.LOOPs. 
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However, I may succumb to demands of Scroimgemaster II 
builders, and publish the 6809 CamelForth configured for the 
Scroungemaster n board. Whichever I do next, I'll do the 
other just one installment later. 

REFERENCES 

1 . Derick, Mitch and Baker, Linda, Forth Encyclopedia . Moun- 
tain View Press, Route 2 Box 429, U Honda, CA 94020 USA 
(1982). Word-by-word description of Fig-Forth. 

2. Ting, C. H., Systems Guide to fig-Forth. Oflfete Enterprises, 
1306 South B Street, San Mateo, CA 94402 USA (1981). 

3. Ting, C. H., Inside F83. Offete Enterprises (1986). 



5. Sergeant, Frank, Pygmv Forth for the IBM PC. yersion 1.4 
(1992). Distributed by the author, available from the Forth 
Interest Group (P.O. Box 2154, Oakland CA 94621 USA) or 
on GEnie. 

6. J. E. Thomas examined this issue thoroughly when convert- 
ing Pygmy Forth to an ANSI Forth. No matter what tricks you 
play with relinking words, strict ANSI compliance is violated. 
A regrettable decision on the part of the ANS Forth team. 

7. In private communication. 

The source code for Z80 CamelForth is now available on GEnie 
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I just uploaded it. (Apologies to those who have been waiting.) 



FIGURE 2. HEADER STRUCTURES 

CamelForth Fig-Forth 
D7 DO D7 DO 



— link 



length 



— name — 



length 



name 




Pygmy Forth F83 
D7 DO D7 DO 



— view — 




— view — 


— link - 


- link - 








S 


length 


1 


P 


S 


length 


— name — 


— name — 



Link - in CamelForth and Fig-Forth, points to the previous word's Length 
byte. In Pygmy Forth and F83, points to the previous word's Link. 

P - Precedence bit, equals 1 for an IMMEDIATE word (not used in Pygmy) . 

8 - Smudge bit, used to prevent FIND from finding this word. 

1 - in Fig-Forth and F83, the length byte and the last character of the 
name are flagged with a 1 in the most significant bit (bit 7) . 

View - in Pygmy Forth and F83, contains the block number of the source 
code for this word. 
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TABLE 1. GLOSSARY OF "HKiH LEVEL' WORDS 

(Nm CAMEL80D. AZM and CAMB.80H. AZM) 



NAME ttKkin — stKkout 



description 



Quid* to (tack dic{?am*: R: - ratL:.- stack, 
e - 8-bJt charactsr, flag • boolean {0 or -1), 
n a »lgne<< 18-b*, u « unaian©.; 16-bft 
d s signed 32-t)it, ud - unsigned 32-IHt, 
-•-n = unsigned 15^ x « any cell value, 
l*x j*x ' any numtiar of cell values, 
a-addr • aligned adis, c-addr = character adrs 
p-addr • VO port adis, ays > aystenvepeciflc. 
Retar to ANS Fortli document for more details. 

ANS Forth Core words 
These are rsquired worda vnhoaa delinltk>ns are 
spocHied by the ANS Forth document 

# ud1 — ud2 convert 1 digit of output 
•S ud1 — ud2 corwert remaining digits 

9> ud1 — c-addr u end conv., get string 

— xt find word in dictionary 

( — skip input until ) 

* n1 n2 — n3 signed multiply 

•/ n1n2n3 — n4 n1*n2/n3 

*/M00 n1n2n3 — n4n5 n1*n2/n3. rem&quot 

+LOOP adis— L:0a1a2..aN — 

X — sppend cell to diet 

/ n1 n2 — n3 signed divide 

/MOD n1 n2 — n3 n4 signed divMe, rem S quol 

— iMgin s coton delinitkin 

end a colon definitnn 
<# — t>egin numeric conversion 

>BOOY xt — a-addr adrs of param field 
>IN —a-addr holds onsst into TIB 

>NUMBER ud adr u — ud" adr' u' 

convert string to number 
2DR0P x1x2— drapZcaHs 
20UP Xlx2 — Xlx2x1x2 duptop2cells 
20VER x1 1^x3x4 — Xlx2x3x4x1 x2 per diag 
2SWAP Xlx2x3x4 — X3x4x1x2 per diagram 
21 Xlx2a-addr— store2cells 

20 a-addr— Xlx2 f*leh2eells 

ABORT i*x— R:J*x— clear stack & QUIT 

ABORT" I*x0 — i*x R:j*x— j*x printmsg* 

i*x x1 — R: i*x — abort.x1 <>0 
ABS n1— +n2 absolute value 

ACCEPT c-eddr ♦n — tn' get line from tentiinal 
AUQN — align HERE 

AUOhEO addr — a-addr align given addr 

ALLOT n — aHocats n bytes in dKt 

BASE —a-addr holds convsiston radix 
BEGIN — adr« target tar backvnrd branch 
BL —char an ASCII space 

C, char— append char to did 

CELLS n1 — n2 call»->adrs units 
CELL+ a-addrl— a-addr2 add can size to adrs 
CHAR —char parse ASCII character 
CHARS n1 — n2 chais->adrs units 
CHAR+ c-addn — c-addr2 add char size to adrs 
COUNT c-addrl— c-addr2u countad->adr/len 
CR — output newline 

CREATE — create an empty definibc^i 

DECIMAL — sat number beae to decimal 

DEPTH — +n number of items on stack 

DO —adis L: — start of DO..LOOP 

DOES> — change action of latest deTn 

ELSE adrsl— adrs2 branch tor IF..ELSE 

ENVIRONMENT? c^ddru- falae systsmquery 

EVALUATE .'•jce-addr u— j*x intarprat string 

FIND e-addr— c-addr ..if name not found 

xt 1 ..if immediate 

xt ..IfnofmeT 

FisVMOD d1 n1 — n2 n3 floored signed diviskxi 



HERE 

HOLt) 

IF —ad 

IMMEDIATE — 

LEAVE — 

LITERAL 

LOOP 



dwr — 



X — 



rstums dicttonaiy pointor 
add char to output string 
conditional forward branch 
make last defn immediate 
L— adrs exitDO..L0OP 
append numeric literal to diet 
adra— L:0a1a2..aN — 
MAX n1 n2 — nSsigned maximum 

MIN n1 n2 — n3 signed minimum 

MOO n1 n2 — nSsigned lemainder 

NIOVE addn addr2 u — smart move 

M' n1 n2 — d signed 18*ie->32 multiply 

POSTPONE — postpone compile actkxi of word 

QU<T — R: i*x — interiMet from keyboard 

kgCURSe — fecurfes currerrt d^rm'Ton 

; "--EAT »<;.■*'! »«..: - i-«»otw» WHite loop 
. ;r.; n — v^d ,T*i;iJK*i^n ff f*n 

SUkSti-i '-1 m -■•,.' no i, niitafr. i,i *.d dhisit-.-. 
SOURCE - adr i' cur:ent Input ini-'nr 
SPACH i!»u^**^:»sp»r3 

SPACES n - oul!B"» . »p*ce» 



STATE 


— a-addr 


THEN 
TYPE 
UMTIL 


n — d 
adrs — 
c-sddr +n 
adrs — 


WHILE 
WORD 


n — 
— adrs 
char — c- 


ICHAR) 

n 


I 



hokis corrn i. jite 
compile m-ii * tnng 
compile stnn? >c onr- 
single -> doubij pr«K .Oj^ 
resolve forward biancn 
- type lirte tr ^'*-^\ni\ 
conditicrai fc«-:kwv' . . --.r-, r 
display Lt un5 '■ Mi 
di?iplay rj *«-' -^ 
branch 'f"srV''.»-il'.F '.c 
c-addr n pfcjs* wrrc tf ■■f-: ',:j chc 
enter interprenvf; ^~i*t& 
compite character it^ral 
find word & ccmpite s& Irttsrig! 
enter compii'.i^ state 



ANS Forth Extensions 
These are optional words wlKise definitions s'e 
specified by the ANS Forth document 

.8 — print stack contents 

/STRING a u n — a+n u-n trim string 

AGAIN adrs — uncond'l backward branch 
COMPILE, xt — append execution token 

DABS d1 — +d2 absolute value, dbl.prec. 
DNEGATE d1 — d2 negate, double precision 
HEX — set number base to hex 

PAD — a-addr user PAD buffer 

TIB — a-addr Temiinal Input Buffer 

WITHIN n1|u1 n2|u2n3|u3 — f testn2<=n1<n37 
WORDS — list all words in dk:t 

Private Extensions 
These are words which are unique to CamelForth. 
Many of these are necessary to implement ANS 
Forth words, but are not specified by the ANS 
document Ottiers are functions I find useful. 

ICF adrs cfa — set code action of a word 

ICOLON — change code nekj to docolon 

IDEST dest adis — change a tsranch dest n 

tWNIT — n #bytes of user area inrt data 

'SOURCE — a-addr two cells: len, adrs 
(DOES>) — run-time action of DOES> 

(S^ — c-addr u run-time code for S" 

.BRANCH xt — append a t>ranch instruction 

,CF adrs — append a code fiekl 

,DEST dest — append a branch address 
,EXrT — append hi-level EXIT action 

>COUNTED srcndst- copy to counted str 
>DIGIT n — c convert to 0..9A..Z 
>L X — L: — X move to Leave stack 

7AB0RT I c-addr u — abort & print mag 
70NEGATE d1 n — d2nesate d1 if n negative 
7NEGATE n1 n2 — n3 negate n1 if n2 negative 
7NUMBER c-addr — n -1 convert string->numb8r 

— c-addr if cortvert error 
7SIGN adr n — adr' n' f .get optional sign 

advance adr/n if sign; return NZ if negative 



CELL 


— n 


size of one cell 


COLD 


— 


coW start ForSi system 


COMRLE 


— 


append inline execution token 


DIGIT? e 


— n-1 


;■ c -5 a .»!i5f iigit 




— X 


.otherwiK' 


DP 


— a-addr 


holda dioav>ni?y ptr 


ENDLOOP adrsxt- 


L:0»ia7 .nH — 


HIDE 


— 


'hide' latest definition 


HP 


— a-addr 


HOLD pointer 


IMf^ED? 


nfa — f 


feteh immediats f^ag 


INTERPRET i-x c-addr u—i*x 




interpret given buffer 


LO 


— a-addr 


txittom oi Leave stack 


LATEST 


— a-addf 


last word in dictioniiy 


LP 


— a-addf 


Leava-stack pointer 


L> 


— X Lx 


— move from Lo^ve stack 


NFA>CFA nfa — cfa 


name adr -> code fiekl 


NFA>LFA 


nfa — Ifa 


name adr -> link field 


RO 


-a-addr 


end ctf return sif^k 


REVEAL 


— 


'revesr latest definition 


SO 


— a-addr 


end of parameter stack 


lasizE 


— n 


tae of TIB 


■JO 


-•8 5iddr 


current ut«f cffia adrs 


UD* 


iidl aZ — 


ud3 32'16->32 muitiply 



,'D/MOO ;J1u2 — Ij3ud4 32/16->32 divide 

UINIT - ' addr initial values for user areie 

UMAX ul!:2 — u unsigned maximum 

UMtN ;i1 u; - u unsigned minimum 

,JtT!».r„ t. errata 1.1 C/U*£LSO.A.'^ f.ism TCJ #67. 
; G«n't r?,i)c fc.. jS <!;",« oi- v. .i>J BOilR f .-nction OB. 



;>^ Kt. Y ? — f '* :u n trua if char waiting 

OFr 6 6DOS DLip SAVEKEY C! , rtns or key 
. rr. :l use SOTiS 'unctlun 6 to v . < ^-^h KEY 
h^.-- :^uervk^yA :<•=>'?, docciDf 

: (Vrf LiT.Oi" H..fT,06i4,BDOS 

Mi D' '.SAVEKEY.CTTORE.EXIT 

,', — c 2e' cnesr^vter'rw" K^v-tx^s'-d 

'; • -ir-; SAVEK^' ■ .:@ 0= WHL K -.'?•' ' DROP REPEAT 
, a.,Vr=Kf;T C® ■'■ 5 •v'EKEY C! . 
;.i>-3t jst CP/fvi , i's t console i/O to jivoid ec^o 
, ;t'r>^S '■ ruction e, iontained within KEY?) 

!S '1 DW SAVeKEY,CFETCH,ZEROEQUAL 

DW qbranch,KEY2 

DW QUERYKEY,DR0P,branch,KEY1 
KEY2 DW SAVEKEY.CFETCH.LIT.O 

DW SAVEKEY.CSrORE 

owExrr 

; Length in '>' head is incorrect 



;C> n1 n2 — flag test n1>n2, signed 
head GREATER,1,>,docolon 

DW SWOP,LESS,EXIT 

: LISTING 2.; 

: CamelForth for ttie Zilog Z80 

; (c) 1994 Bradford J Rodriguez 

; Permission is granted to freely copy, modify, 

: ar^d distribute this program for personal or 

; educational use. Commercial inquiries should 

; txi d^frt?tsd to the author at 221 King St E., 

; #32. Hamilton, Onterio L8N 185 Canada 

; CAMEL80H.AZM: High Level Words 

: Source code is for the Z80MR macro assembler. 

: Forth words are documented as follows: 

;* NAME stack — steck description 

; Word names in upper case are from the ANS 

; Forth Core word set Names in lower case are 

; 'internal' implementation words & extensions. 



; SYSTEM VARIABLES & CONSTANTS 



RAVtKEY — iddr tcmpcxary storage for KEV 

>'iadsavt'<" ■' S#;VEKE':',c- % 



,C BL — char an ASCII space 

head 3L,2.aL,docon 
dw20h 

;2 tit>size — n size of TIB 

head TIBSIZE,7,TIBSIZE,docon 

dw126 ; 2 chars safety zone 

;X tib — a-addr Terminal Input Buffer 

; HEX 80 CONSTANT TIB CP/M systems: 128 bytes 
: HEX -80 USER TIB others: bekiw user area 
head T!B,3,TIB,docon 
dwSOh 

:Z uO — a-addr current user area adrs 

: OUSERUO 
head U0,2.U0.douser 
dwO 

;C -IN — a-addr holds offset into TIB 
; 2USER>IN 

head TaN,3.>IN,douser 
&m7 

;C BASE — a-addf holds conversion radix 
; 4 USER BASE 

:iaad BASE.4,EASE.dousor 

d*4 

,C STATE — a-addr holds compiler steto 
; 6 USER STATE 
head STATE,5,STATE,douser 
dw6 

;Z dp — a-addi holds dictionary ptr 

: 3 USER DP 

htrjd DP,2,DP.!i'..ser 
dv^ Q 

,2 source — a-addf two ceils: len, adrs 

lOUSER'SOURCt 
; i-ieaf; T!Cr<SOUwCE.;,'SOURCE,aous6r 

OW fink . must expand 

PBO , r-.anually 

!.nk DEFl * ; t>ecause of 

D9 7 2':t, SO'.-iRCE , tick character 
^:r "C-URC-'.'. f^-.v!i - ?(J5*." ; in n^'rie! 
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:Z latsst — a-addr last word in diet. 
, 14 USER LATEST 
hMd LATEST,8,LATEST,douser 
dw14 

;Zhp —a-addr HOLD pointer 

; 18 USER HP 
head HP,2.HP,dou*er 
dw16 

:Z LP — a-addr Leave-stack pointer 

; 18 USER LP 
head LP,2,LP,douser 
dw18 

:ZaO —a-addr end of parameter stack 

head S0,2,S0,dou*er 
dwIOOh 

IXPAD —a-addr user PAD butter 
= end of hold areal 
head PAD,3,PAD,douser 
dw128h 

:iZ 10 — a-addr bottom of Leave stack 

head L0,2,L0,dousef 
dwiaOh 

;ZrO —a-addr end of return stack 

head R0,2,R0,douser 
dw200ti 

jZuinit — addr initial values for user area 
head UlNIT.S.UINIT.docieata 
DW 0,0,10,0 

resen«d,>IN,BASE,STATE 
□Wenddk«;OP 

DW 0.0 : SOURCE inifd elsevvhere 
DW lastvraid : LATEST 

DW ; HP inifd elsewhere 

;Z Wnit — n tVbyles of user area init data 
head NINrr,5,IINNrr,docon 
DW18 

; ARITHMETIC OPERATORS 



;C S>0 n — d single -> double prec. 

; DUPO<; 
head STOO,3,S>D,docok)n 

dw DUP,ZEROLESS.EXrr 

:Z 7NEGATE n1 n2 — n3 negate n1 if n2 negative 
; 0< IF NEGATE THEN; ...a common factor 

head QNEGATE,7,7NEGATE,docok>n 

DW ZEROLESS.qbranch.QNEGI , NEGATE 
QNEG1: DWEXrr 

:C ABS n1 — '•'n2 absolute value 
; DUP7NEGATE; 
head ABS,3,ABS,docok)n 

DW DUP,QNEGATE,EXrr 

:XDNEGATE d1— d2 negate double 

precision 

; SWAP INVERT SWAP INVERT 1 M+ ; 
head DNEGATE,7,0NEGATE,docok)n 

DW SWOP.INVERT.SWOP 

DWINVERT,LIT,1,MPLUS 

DWEXrr 

iZTDNEGATE din — d2 negate d1 if n negative 
; 0< IF DNEGATE THEN ; ...a common factor 

head <3DNEGATE,8,70NEGATE,docok>n 

DW ZEROLESS,qbranch,DNEG1 .DNEGATE 
DNEG1: DWEXTT 

;XDABS d1— '»d2 absoluta value dU.prec. 
; DUP7DNEGATE; 
head DABS,4,0ABS,docok)n 

DW DUP,OONEGATE,EXn' 

;CM* n1n2 — d 5igned18*18J'32multiply 

2DUPX0R>R carries sign of the result 

SWAP ABS SWAP ABS UM* 

R> 70NEGATE ; 

head MSTAR,2,M*,docok>n 

DW TWOOUP,XOR,TOR 

DW SWOP,ABS,SWOP,ABS,UMSTAR 

DW RFROM.QONEGATE.EXrr 

;C SM/REM d1 n1 — n2 n3 symmetric signed div 
2DUP XOR >R sign of quotient 

OVER >R sign of remainder 

ABS >R DABS R> UM/MOO 



SWAP R> 7NEGATE 
SWAP R> 7NEGATE ; 
Ret. dpANS-6 sectk>n 3.2.2.1 . 
head SMSLASHREM,6,SM/REM,docok>n 

DW TWODUP,XOR.TOR,OVER,TOR 

DW ABS,TOR,DABS,RFROM,UMSLASHMOD 

DW SWOP,RFROM,QNEGATE 

DW SWOP,RFROM,QNEGATE 

DWEXrr 

C FM*IOO d1 n1 — n2 n3 floored signed dr/n 
DUP >R save divisor 
SMmEM 
DUP 0< IF if quotient negative, 

SWAP R> * add divisor to rem'dr 

SWAP 1 - decrement quotient 
ELSE R> DROP THEN; 
Ret. dpANS« section 3.2.2.1. 
head FMSLASHM00.8,FMMOO,doeok)n 
DW DUP,TOR,SMSLASHREM 
DW DUP,ZER0LESS,qbranch,FMM0D1 
DW SWOP,RFRO)ri,PLUS,SWOP,ONEMINUS 
DW branch,FMM002 
FMM0D1: DWRFROM.DROP 
FMM002: DWEXIT 

;C * n1 n2 — n3signed multiply 

; M'DROP; 
headSTAR,1,',docok>n 

dwMSTAR,DROP,EXrr 

;C /MOD n1 n2 — n3 n4 signed divkje/rem'dr 
; >R S>D R> FM/MOD ; 
head SLASHMOO,4,/MOO,docok>n 

&*/ T0R,STO0,RFR0M,FMSLASHMO0,EXn' 

;C/ n1 n2 — n3 signed divkle 

; /MOO nip; 
head SLASH,1,/,doeok>n 

dw SLASHMOD.NIP.bAi , 

;C MOO n1 n2 — n3 signed remainder 
; /MOO DROP; 
head liK)0,3,li«00,ilocok>n 

dw SLASHMOO,Df«}P,EXrT 

;C '/MOO n1 n2 n3 — n4 nS n1*n2/n3, rem&quot 
; >R M* R> FM/MOD ; 
head SSMOD,5,*/MOD,docok>n 

dw T0R,MSTAR,RFR0M.FMSLASHMOD,EXIT 

;CV n1n2n3 — n4 n1*n2/n3 

; */MOD nip ; 
head STARSLASH,2,*/,docok>n 
dw SSMO0,NIP,EXn' 

;C M/U( n1 n2 — n3 signed maximum 
; 20UP< IF SWAP THEN DROP; 
head MAX.3,MAX.docolon 

dw TW0DUP,LESS,qbranch,MAX1 ,SWOP 
MAX1: dwDROP,EXrr 

;C MIN n1 n2 — n3 signed minimum 
; 2DUP > IF SWAP THEN DROP ; 
head MIN,3.MIN,docokxi 

dw TW0DUP,GREATER,qbranch,MIN1 ,SWOP 
MINI: dwDROP,EXn' 

; DOUBLE OPERATORS 



;C2e a-addr — x1x2 fetch 2 cells 

DUP CELLi-O SWAPS; 

the k>wer address will appear on top of stack 

head TWOFETCH,2,20.docolon 

dw OUP,CELLPLUS,FETCH 
dw SWOP,FETCH,EXIT 

:C2I x1x2 a-addr— store 2 cells 

SWAP OVER I CELL* I ; 

the top of stack is stored at the k>wer adrs 

head TWOSTORE,2,2l,docok)n 

dw SWOP,OVER,STORE 
dw CELLPLUS,STORE,EXIT 

;C 2DR0P x1 x2 — drop 2 cells 
; DROP DROP; 
head TWODROP,5,2DROP,docokxi 
dwDROP,DROP,EXIT 

;C2DUP x1 x2 — x1 x2 x1 x2 duptop2cens 
; OVER OVER; 
head TWODUP,4,2DUP,doeoton 
dwOVER.OVER.EXIT 



;C 2SWAP x1 x2 x3 x4 — x3 x4 x1 x2 per diagram 
; ROT>RROTR>; 

head TWOSWAP,5,2SWAP,docokxi 

dw ROT,TOR,ROT,RFROM,EXfT 

;C20VER x1 x2 x3 x4 — x1 x2 x3 x4 x1 x2 
; >R >R 20UP R> R> 2SWAP ; 
head TWOOVER,5,20VER,docok)n 

dw T0R,TOR,TWO0UP,RFROM,RFROM 

dwTwoswAP,Exrr 

; INPUT/OUTPUT 



;C COUNT c-addn— c-addr2u countBd->adr/len 

; DUP CHAR-^ SWAP CO : 
head COUt4T,S,COUh(T,docolon 

dw DUP,CHARPLUS.SWOP,CFETCH,EXfT 

;C CR — output newtine 

; OOEMITOAEMIT; 
head CR,2,CR,doook)rt 

dw lit.Odh,EMa,lit.Oah,EM(T,EXn- 

;CSPACE — oulputaspaca 

; BLEMFT; 
head SPACE,5,SPACE.doook>n 
dw BL,EMn',EXIT 

;C SPACES n— output n spaces 

; BEGIN DUP WHILE SPACE 1- REPEAT DROP; 

head SPACES,e,SPACES.docalen 
SPCS1 : DW DUP,qbrandi,SPCS2 

DW SPACE,0NEMINUS,branch,SPCS1 
Sf>CS2: DW DROP,EXIT 

;Z umin u1 u2 — u unstgnad minimum 
; 2DUPU> IF SWAP THEN DROP; 
head UMIN,4,UMIN,dooalan 

DW TWODUP,UOREATER 

DW QBRANCH,UMIN1 ,SWOP 
UMIN1: DWDROP,EXIT 

;Z Umax u1 u2 — u unsigned maximum 

; 2DUPU< IF SWAP THEN DROP; 
head UMAX,4,UMAX.docok)n 
DWTWODUP.ULESS 
DW QBRANCH,UMAX1,SW0P 

UMAX1: DWDROP,EXIT 

;C /ACCEPT c-addr+n — +n' gat line from tarm'l 
OVER + 1-OVER — saeaa 
BEOINKEY — aaeaac 

DUP 00 <> WHILE 

DUP EMIT — sa ea a e 
DUP 8 » IF DROP 1- >R OVER R> UMAX 
ELSE OVER C1 1* OVER UMIN 
THEN — sa ea a 
REPEAT— saeaa c 
DROP NIP SWAP - ; 
head ACCEPT,6,ACCEPT,docoton 

DW OVER,PLUS,ONEMINUS,OVER 
ACC1: DW KEY,DUP,LIT,0OH,NOTEQUAL 
DW QBRANCH,ACCS 
DW DUP,EMrr,DUP,Ln',8 
DW EQUAL,CIBRANCH,ACC3 
DW DROP,ONEMINUS,TOR 
DW OVER,RFROM.UMAX 
DW BRANCH ACC4 
ACC3: DWOVER,CST0RE,ONEPLUS,OVER,UMIN 
ACC4: DW BRANCH,ACC1 
ACC5: DW DROP,NIP,SWOP,MINUS,EXIT 

;C TYPE c-addr +n —type line to term'l 
7DUPIF 

OVER ♦ SWAP DO I CO EMIT LOOP 
ELSE DROP THEN; 
head TYPE,4,TYPE,docolon 

DW QDUP,QBRANCH,TYP4 
DW OVER,PLUS.SWOP,XOO 
TYP3: DW ll,CFETCH,EMrT,XLOOP.TYP3 

DW BRANCH,TYP5 
TYP4: DWDROP 

TYP5: DWEXrr 



;Z(S^ — c-addru run-time cod* for S* 
; R> COUNT 2DUP + ALIGN >R ; 
head XSQUOTE,4,(Sl,dooolon 

DW RFROM,COUMT,TWOOUP 

DW PLUS.ALIGN.TOR 

DWEXrr 

C S* — compile in-line string 

COMPILE (SI [HEX] 

22 WORD CO 1+ ALIGN ALLOT ; IMMEDIATE 
immwj SQUOTE,2,S',docolon 
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OW LIT.XSQUOTE.COMMAXT 

DW LIT,22H,WORD,CFETCH,ONEPLUS 

DW ALIGN.ALLOT.EXIT 

;C .' — compile string to print 

; POSTPONE S" POSTPONE TYPE ; IMMEDIATE 
imnrwd 0OTQUOTE,2,.-,<localon 

OWSQUOTE 

□W LrT,TYPE,COMMAXT 

DWEXIT 

; NUMERIC OUTPUT 

; Numaiic ooKvtnion Is don* l.«.digR firat, lo 
; th* output Ixjntr Is buiH badowsrds In mwnory. 

I Soms doutns pracislon siHJiiiisUt opsrstors sro 
; nssdsd to implsmsnt ANSI nunwric oomwsion. 

:ZUDMOO Ud1u2 — u3ud4 32/ie->32 <IMd« 
: >R0RaUMMOO ROTR0TR>UMM00ROT; 
hmi UOSI>SHMOO,e,UC»MOO.dooolon 
DWTOR,UT,0,RFETCH 
DW UMSLASHMOD.ROT.ROT 
OW RFROM,UMSLASHMOO,ROT,EXrT 

ZUCr ud1d2 — ud3 32*1ft^32 multiply 

; DUP >R UM* DROP SWAP R>UM* ROT + ; 
hswj UOSTAR.3,UD',dooolon 

DW DUP,T0R,UMSTAR,DROP 

DW SWOP,RFROM,UMSTAR,ROT,PLUS,EXn' 

;CHOLO char— add char to output string 

: -1HP+I HPOCI; 
haad HOLD,4,HOLO,docoton 

DW UT,-1,HP,PLUSSTORE 

DW HP,FETCH,CSTORE,EXIT 

:C <• — Iwgin numaric coiwsrsian 
; PAD HP t; (MtiaNzs Held Polntw) 

haad t.ESSNUM,2,<#,dooa)on 

DW PA0,HP,STORE,EXIT 

2>digit n — e convert to 0..9A.Z 

; [HEX10UPB>7ANO + 30 + ; 
haad TOOK3IT,6,>DIOn',docoton 

DW DUP,UT.0.GREATER,UT,7,AND.PLUS 

DWUT,30H.PLUS,EXrr 

:C • udl — ud2 convert 1 digit of output 

: BASE QUOMOO ROT >digit HOLD; 
head NUM,1,#,docolon 

DW BASE,FETCH,UDSLASHMOO 

DWROT.TODIGrT 

DWHOLD.EXIT 

;C#S udl — ud2 convert remaining digits 
; BE0IN*20UP0R0'l«niL; 

nMn NUMS,2,IVS,clocoion 
NUMS1: DW NUM,TW00UP,0R,ZER0EQUAL 

DWqbranch,NUMS1 

DWEXIT 

;C*^ udl— e-addru end conw., gel string 
; 20ROPHPaPADOVER-: 
head NUMOREATER,2,«>.doooton 

DW TWOOHOP.HP.FETCH 

DW PAO,OVER.MINUS,EXrT 

;C SK3N n — add minus sign if n<0 

; 0<F 20 HOLD THEN; 
haad SIQN,4,SIGN.docolon 
DW 
ZER0LESS,qbranch.SIQN1 ,Lrr,20H,H0LD 
8I0N1: DWEXIT 

;C U u —display u unsigned 

: <«0«8«>' TYPE SPACE: 

head UDOT.2.U..dooaton 

DW LESSNUM,UT,O.NUMS 

OW NUMOREATER.TYPE 

DWSPACE,EXIT 

;C . n — display n signed 

: <• OUP ABSO«S ROT SIGN iK> TYPE SPACE: 
head OOT,1,'.',docolan 

OW LESSNUM,DUP,ABS,LIT,0,NUMS 

DW ROT,SIGN,NUMGREATER 

DWTYPE.SPACE,EXIT 

:C DECIMAL — set numlwr base to decimal 

: 10 BASE I: 
head DECtMAL,7,DEaMAL,docolon 

DW LIT,10,BASE,STO«E.EXrr 



:X IHEX — set number base to hex 

: 18 BASE I ; 
head HEX,3,HEX,docolon 

DW LIT.ie.BASE.STORE.EXfT 

; DICTIONARY MANAGEMENT 



;C HERE — addr returns dictionary ptr 
; DPO; 
head HERE,4,HERE,docolon 
dw DP.FETCH.EXIT 



:C ALLOT n— allocate n bytes in diet 

; DP+i: 

heed ALLOT.S.ALLOT.docoton 

dw DP.PLUSSTORE.EXTT 

: Note: , and C, sie only valid ter combined 
; Code and Data spaces. 

:C, X— append cell to diet 
: HERE II CELLS ALLOT: 
head COMMA,1,',',docolon 

dw HERE,ST0RE,lit,1, CELLS, ALLOT.EXIT 

;CC, char— append char to diet 

; HERE C1 1 CHARS ALLOT : 
head CCOMMA,2.'C,',docolon 

dw HERE,CST0RE,lit1,CHARS,ALL0T,EXrT 

: INTERPRETER 

: Note that NFA>LFA. NFA>CFA, IMMED7, and FIND 
; are dependent on the structure of the Forth 
: heeder. This may be common ecioss nwny CPUs, 
: or it may tw different 

:C SOURCE — adrn current input buffer 
; 'S0URCE2a: length is at lower adis 

head SOURCE,6,SOURCE,docolon 

DW TICKSOURCE,TWOFETCH,EXIT 

;X /STRING sun — a+n u-n trim string 
; ROT OVER* ROT ROT-: 
head SLASHSTRING,7,/STRING,docolon 

DW ROT,OVER,PLUS,ROT,ROT,MINUS,EXIT 

:Z >counted src n dst — copy to counted str 

: 2DUPCICHAR+SWAPCM0VE; 
heed TOCOUNTED,8,>COUNTED,docolon 

DW TWODUP,CSTORE,CHARPLUS 

DW SWOP,CMOVE,EXIT 

;CWORD char — c-addrn word delim'd by char 
DUP SOURCE >IN O /STRING — ccadrn 
OUP>R ROTSKIP— cadr'n' 
OVER>R ROT SCAN — adr-n- 

OUP IF CHAR- THEN skip trailing delim. 

R>R>ROT- >IN'»lupdato>IN offset 
TUCK- — adr'N 
HERE >counted — 
HERE —a 

BL OVER COUNT + CI : append trailing blank 
head WORD,4,WORD,docolon 

DW DUP,S0URCE,TOIN 

DW FETCH, SLASHSTRING 

OW DUP,TOR,ROT,SKIP 

DW OVER.TOR.ROT.SCAN 

0WDUP,qbranch,WOR01,0NEMINUS : char- 
W0RD1: DW RFROM,RFROM,ROT,MINUS 

DWTOIN.PLUSSTORE 

DWTUCK,MINUS 

DW HERE,TOCOUNTED,HERE 

DW BL,OVER.COUNT,PLUS,CSTORE,EXrT 

:ZNFA>LFA nfa — Ifa name adr -> link field 
: 3-; 
head NFATOLFA.7,NFA>LFA,docolon 
DW LIT,3,MINUS,EXrT 

;Z NF/k>CFA nfa — cfa name adr -> code field 
; C0UNT7FAND + : mask off "smudge' bit 
head NFATOCFA,7,NFA>CFA,docok)n 

DW COUNT,LIT,07FH,AND,PLUS.EXIT 

:Z IMME07 nfa — f fetch immediate flag 
: 1- CO : nonzero if immed 
head IMMEDQ,e,IMMED7,docok>n 

DW ONEMINUS,CFETCH,EXIT 



;CFIND e-addr- 
:C xt 1 



' c-addr if not found 
If immediate 



;C xt -1 it "normal" 

LATEST e BEGIN — a nfa 

2DUP OVER C© CHAR* — a nfa a 

nfa n+1 

S= — a nfa f 

DUP IF 

DROP 

NFA>LFAeDUP —a link link 

THEN 
0= UNTIL — a nfa OR a 

DUP IF 

NIP DUP NFA>CFA — nfa xt 

SWAP IMMED? — xtiflag 

0=1 OR — xt1/-1 
THEN; 
head FIND,4,FIND,docoton 

DW LATEST, FETCH 
FIND1 : DW TWODUP,OVER,CFETCH,CHARPLUS 

DW SEQUAL,DUP,qbranch,FIND2 

DW DROP,NFATOLFA,FETCH,DUP 
FIND2: DW ZEROEQUAL,qbranch,FIN01 

DW DUP,qbranch,FIND3 

DW NIP,DUP,NFATOCFA 

DW SWOP,IMMEDQ,ZEROEQUAL,LIT,1,0R 
FIND3: DW EXIT 

;C LITERAL x — append numeric literal 

; STATE e IF [] LIT ,XT , THEN ; IMMEDIATE 
; This tests STATE so that it can also be used 
; interpretively. (ANSI doesn't require this.) 
immed LrTERAL,7,LrrERAL,docok>n 

DW STATE,FETCH,qbraneh.LrTER1 
DW LrT,LrT,COMMAXT,COMMA 
LITER1: DWEXIT 

;Z DIGIT? c — n -1 if c is a valid digit 
Z — X otherwise 

[ HEX ] DUP 39 > 100 AND -f silly kicking 
DUP 140 > 107 AND- 30- butitworksl 
DUP BASE e U< ; 
head DIGrTQ,6,0IGrT?,docolon 

DW DUP,LIT,39H,GREATER 

DW LIT,100H,AND,PLUS 

DW DUP,LrT,14OH,GREATER,LrT,107H,AND 

DW MINUS,LIT,30H,MINUS 

DW DUP,BASE,FETCH,ULESS,EXIT 

;Z 7SIGN adr n — adr' n' f get optional sign 
Z advance adr/n if sign; return f^ if negative 
OVER CO — adrnc 

2C - DUP ABS 1 = AND — +=-1, -=+1, elseO 
DUP IF 1+ — +=0, -=+2 

>R 1 /STRING R> — adr" n' f 

THEN; 
head QSIGN,5,7SIGN,docok>n 

DW 0VER.CFETCH,Lrr,2CH,MINUS,DUP,ABS 
DW LIT,1,EQUAL,AND,DUP,qbranch,QSIGN1 
DW 0NEPLUS,T0R,Lrr,1 
DW SLASHSTRING,RFROM 
QSIGN1: OWEXrr 

C >NUMBER ud adr u — ud' adr' u' 
C convert string to numlier 

BEGIN 
DUP WHILE 

OVER CO DIGIT? 
0= IF DROP EXIT THEN 
>R 2SWAP BASE Q UD' 
R> M+ 2SWAP 
1 /STRING 
REPEAT ; 

head TONUMBER,7,>NUMBER,docok>n 
T0NUM1: DW DUP,qbranch.T0NUM3 
DW OVER,CFETCH,DIGITQ 
DW ZEROEQUAL.qbranch 
CW TONUM2,DROP,EXrr 
TONUM2: DW TOR,TWOSWAP.BASE,FETCH,UDSTAR 
DW RFROM,MPLUS,TWOSWAP 
DW Ln",1,SLASHSTRII«3,branch,T0NUM1 
T0NUM3: DWEXrr 

Z7NUMBER e-addr — n-1 string->number 

Z — c-addr if convert error 

DUP ROT COUNT — caudadrn 

?SIGN >R >NUMBER — ca ud adr" n' 

IF R>2DROP2DROP0 — caO (error) 
ELSE 2DROP NIP R> 

IF NEGATE THEN -1 —n-1 (ok) 
THEN; 
head QNUMBER,7,?NUMBER,docolon 

OW DUP,LrT,0,DUP,ROT,COUNT 
DW QSIGN,T0R,T0NUMBER,qbranch,QNUM1 
DW RFROM,TWODROP,TWODROP,LIT,0 
OW branch,QNUM3 
QNUM1: DWTWODROP,NIP,RFROM 
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DW qbranch.QNUMZ.NEGATE 
QNUM2: DW LIT,-1 
QNUM3: DW EXIT 

;Z INTERPRET i*x c-addr u — i*x 

;Z intefprat 9<vcn buffer 

; Thi» (• a common factor of EVALUATE and QUIT. 

; wf. dpANS4, 3.4 Th« Forth Text Interpreter 

; 'SOURCE 21 >IN I 

: BEGIN 

; BL WORD DUP CO WHILE — textadr 

FIND — aO/1/-1 

70UPIF — xlIM 

^* STATE O 0= OR immed or Interp? 
I IF EXECUTE ELSE ,XT THEN 

; ELSE —textadr 

7NUMBER 
■ ; IF POSTPONE LITERAL converted 

■■'ok 
; ELSE COUhfT TYPE 3F EMIT OR ABORT err 

THEN 
; THEN 

' REPEAT DROP ' 
headlhfTERPRET,9,INTERPRET,docolon 

DW T1CKS0URCE.TW0ST0RE 

DW L(T,0,TOIN,STORE 

DW BL,W0RD,DUP,CFETCH,ql>ranch,INTER9 

DW FIND,QCXJP,qbraneh,INTER4 

DWONEPLUS.STATE 

DW FETCH,ZEROeQUAL,OR 

DW qlxanch.lNTERZ 

DW EXECUTE,branch,INTER3 

DWCOMMAXT 

DW branch.lNTERS 

DW QNUMBER,ql>ranch,INTER5 

DW L[TERAL,branch,INTER6 

DW C0UNT,TYPE,LIT,3FH,EMIT,CR,AB0RT 



INTER1: 



INTER2: 
INTER3: 
INTER4: 



INTERS: 
INTER6: 
INTERS: 
INTERS: 



DW branch.lNTERI 
DW t3ROP,EXrr 



;C EVALUATE i*x e-addr u — j*x interprt itrinfl 

■SOURCE 20 *R »R »IN O »R 

INTERPRET 

R>>INI R> R> 'SOURCE 21 ; 

head EVALUATE,8,EVALUATE,docolon 

DW TrcKSOURCE,TWOFETCH,TOR,TOR 
DW TOIN.FETCH.TOR.INTERPRET 
DW RFRO»«,T0IN,STORE,RFROM,RFROM 
DW TlCKSOURCE.TWOSTORE.EXrr 

CQUIT — R:l*x— interpret from kbd 
LOLPI RORPI STATE I 
BEGIN 

TIB DUP TIBSIZE ACCEPT SPACE 

INTERPRET 

STATE e 0= IF CR ■ OK" THEN 
AGAIN : 
head QUrT.4,QUIT,docolon 

DW LO.LP.STORE 

DW R0,RPSTORE.LfT,0,STATE, STORE 
QUrri: DW TIB,DUP,T1BSIZE,ACCEPT 

DW SPACE,INTERPRET 

DW SrATE,FETCH,ZEROEQUAL 

DW qbranch.QUrT2 

DWCR,XSQUOTE 

08 3.'ok ' 

DWTYPE 
QUIT2: DW branch.OUm 

;C ABORT i*x— R:j*x— clear »tk & QUIT 
; SOSPI QUIT; 
head ABORT,S,ABORT,docolon 

DW SO.SPSTORE.QUrr ; QUIT never retums 

;Z7AB0f?T fc-addru— alXMt & print msg 

: ROT IF TYPE ABORT THEN 2DROP: 
head QABORT,e,7ABORT,docolon 

DW R0T,qbranch,QAB01 .TYPE, ABORT 
QABOI : DW TWOOROP.EXrr 

CABORT i*xO — j-x R:j*x — j*x x1=0 
C i*xx1— R:j*x— x1<>0 

POSTPONE S" POSTPONE 7ABORT ; IMMEDIATE 
immed ABORTQUOTE,6,ABORr,docolon 
DWSQUOTE 
DW LIT.QABORT.COMMAXT 

DWExrr 

C ' — xl find word in dictionary 
BL WORD FIND 
0=ABORT"r; 
head TICK,1 .'.docolon 



DW link ; must expand 

DB ; manually 

link DEFL % ; because of 

DB 1 ,27h : tick character 
TICK: call docolon 

DW BL,WORD.FIND,ZEROEQUAL,XSQUOTE 

DB1,'r 

DW QABORT.EXrr 

;CCHAR —char parse ASCII character 
; BLWORDUCO: 
head CHAR,4,CHAR,docok>n 

DW BL,WORD,ONEPLUS,CFETCH,B(IT 

:C[CHAR] — compile character literal 

; CHAR n LIT .XT , ; IMMEDIATE 
immed BRACCHAR.S.[CHARl,dooolon 

DWCHAR 

DW LIT.Lrr.COMMAXT 

DWCOMMA.EXrr 

:C ( — skip input until ) 
; I HEX 128 WORD DROP; IMMEDIATE 
immed PAREN.I.Cdocoton 

DW LIT.29H.WORD,DROP,EXrr 

; COMPILER 



:C CREATE — create an empty definition 

LATEST e . C. link & immed fiekj 
HERE LATEST I new TatesT link 
BL WORD C0 1 + ALLOT name field 

docreate ,CF code fiekl 

head CREATE,6.CREATE,docokxi 

DW LATEST.FETCH.COMMA.Lrr.0.CCOMMA 

DW HERE.LATEST.STORE 

DW BL.WORD.CFETCH.ONEPLUS.ALLOT 

DW LIT.docfeate.COf" "^F.EXIT 



Z (DOES>) — mn-Gme action of DOES> 

R> adis of headless DOES> deTn 

LATEST ONFA>CFA code fiekl to fa up 
ICF; 
head XOOES.7.(DOES>).docok>n 

DW RFROM.LATEST.FETCH 
DW NFATOCFA.STORECF 
DWEXrr 

;C DOES> — change action of latest def n 

; COMPILE (DOES>) 

: dodoes ,CF ; IMMEDIATE 
immed D0ES.5,DOES>.docok)n 

DW LIT.XDOES.COMMAXT 
DW LIT.dodoes.COMMACF.EXrr 

:CRECURSE — recurse current definitnn 

; LATEST O NFA>CFA .XT ; IMMEDIATE 
immed RECURSE,7,RECURSE,docolon 

DW LATEST.FETCH.NFATOCFA 

DW COMMAXT.EXrr 

;C [ — enter interpretive state 

; STATE I ; IMMEDIATE 
Immed LEFTBRACKET.1 .[.docoton 

DW LIT.O.STATE.STORE.EXrT 

;C ] — enter compiling stats 

; -1 STATE I ; 
head RIGHTBRACKET.I.l.docoton 

DW LIT.-I.STATE.STORE.EXIT 

;Z HIDE — tikle* latest definitran 

; LATEST O DUP CO 80 OR SWAP CI; 
head HI0E,4.HIDE,docok)n 

DW LATEST.FETCH.DUP 
DW CFETCH.LIT.80H,OR 
DW SWOP.CSTORE.EXrr 

:Z REVEAL — "reveal" latest definition 

; LATEST O DUP CO 7F AND SWAP CI ; 
head REVEAL.e.REVEAL.docokm 
DW LATEST.FETCH.DUP 
DW CFETCH.LrT.7FH.AND 
DW SWOP.CSTORE.EXIT 

;C IMMEDIATE — make last def n immediate 
: 1 LATEST O 1- CI ; sat immediate flag 
head IMMEDIATE.9.IMMEDIATE,docok>n 

DWLIT.I.LATEST.FETCH 

DW ONEMINUS.CSTORE 

DWEXIT 

;C : — begin a colon definition 

; CREATE HIDE 1 ICOLON ; 



head COLON.1.:,docode 

CALL docoton ; code fvKl ref explicitly 
DW CREATE.HIDE,RIGHTBRACKET 
DWSTORCOLON 
DWEXIT 



REVEAL .EXIT 
POSTPONE [ ; IMMEDIATE 
immed SEMICOLON.1.';',docoton 

DW REVEAL,CEXIT 

DW LEFTBRACKET.EXrr 

CU — find word & compile a« lilani 

' ri LIT ,XT , ; IMMEDIATE 
When encountered in a oolon definition, the 
phase CI »a wili cauM UT^nl to be 
compiled into ttie eoton MMaan (iMmi* 
(wtMre «l i* «w aaseiilian token of wo(d oef. 
When the colon deHnHion aotocutoe, 10(1 w« 
be put on the stack. (Ah xTs am one ce«.) 
immed BRACTICKS.n.doookin 

OWIInk ; must expand 
OB 1 : manually 

link DEFL S : because of 

DB 3,S6h,27h.50ti : tick charKAar 
BRACnCK: call docokMi 

DWT1CK ;0etxtaf'xxx' 

DW LfT.Lrr.COMMAXT ; append LIT action 

DW COMMA,EXrT ; append xt litonl 

C POSTPONE — postpone compile aclton of word 
BL WORD FIND 
DUP0=ABOf»rr 
0< IF — xt non immed: add code to current 

defn to compile xt later. 

nLIT.XT .addXIT,xt.COMMAXr 

n.XT,XT to currant definition 
ELSE ,XT immed: compile into cur. defn 

THEN ; IMMEDIATE 
immed POSTPONE,8,POSTPONE.docoton 

DW BL.WORO.FIND.DUP 

DW ZEROEQUAL.XSQUOTE 

DBI.'r 

DW QABORT,ZEROLESS,qbraneh.POST1 

DW LIT.LIT.COMMAXT.COMMA 

DW LrT.COMMAXT.COMMAXT,branch,POST2 
POST1: DWCOMMAXT 
POST2: DWEXIT 

;Z COMPILE — append inline executton token 

R> DUP CELL+ >R O .XT ; 
The phrase [] xxx .XT appears so oAan that 
this word was created to combine the acfiona 
of LIT and, XT. It lakes an inline iitoral 
executkxi token and appends it to the diet 
head COMPtLE,7.COMPILE,docak)n 

DW RFROM,DUP,CELLPLUS,TOR 
DW FETCH,COMMAXT.EXIT 
N.B.: not used in the current impiementatkMi 

; CONTROL STRUCTURES 



;C IF — adrs conditional fonward branch 

n qbranch .BRANCH HERE DUP ,DEST ; 
IMMEDIATE 
immed IF.2.IF,docoton 

DW LIT.qbranch.COMMABRANCH 
DW HERE,DUP,COMMADEST.EXIT 

;C THEN adrs — resolve fonward branch 
; HERE SWAP IDEST ; IMMEDtATE 
immed TVIEN.4.THEN.docoton 

DW HERE,SWOP,STOREDEST,EXIT 

C ELSE adrsi — adrs2 branch tor IF..ELSE 
n branch .BRANCH HERE DUP ,OEST 
SWAP POSTPONE THEN; IMMEDIATE 
immed ELSE.4.ELSE.docok>n 

DW LIT.branch.COMMABRANCH 
DW HERE.DUP,COMMADEST 
DW SWOP.THEN.EXTT 

;C BEGIN — adrs target for bwd. branch 
; HERE : IMMEDIATE 

immed BEGIN.S.BEGIN.docode 
jp HERE 

C UNTIL adis — conditranal backward branch 
n qbranch .BRANCH ,DEST : IMMEDIATE 
conditionat backward branch 
immed UNTIL.S.UNTlL.docolon 

DW LIT.qbranch.COMMABRANCH 
DW COMMAOeST.EXrr 
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:X AGAIN adrs — uncond' I backward branch 
n branch .BRANCH ,OEST : IMMEDIATE 
unconditional backward branch 
immad AGAIN.S.AGAIN.docolon 

DW LIT.branch.COMMABRANCH 

DW COMMADEST.EXIT 

;C WHILE — adrs branch for WHILE loop 
, POSTPONE IF ; IMMEDIATE 
innmed WHILE,5,WHILE,docode 
jplF 

;C REPEAT adrs1 adrs2 — resolve WHILE loop 

; SWAP POSTPONE AGAIN POSTPONE THEN ; 
IMMEDIATE 
immed REPEAT,6,REPEAT.docolon 

DW SWOP,AGAIN,THEN,EXIT 

;Z >L X — L: — x mow to leave stack 
: CELLLP+I LP O I ;(L stack grows up) 
head TOL,2,>L,docolon 

DW CELL.LP.PLUSSTORE 

DW LP.FETCH.STORE.EXIT 

;2 L> — X L: X — move from leave stack 
; LP O C CELL NEGATE LP ♦! : 
head LFROM,2,L>,docolon 

DW LP.FETCH.FETCH 

DW CELL,NEGATE,LP,PLUSSTORE,EXIT 

CDO —adrs L— 
n xdo .BRANCH HERE target for bwd branch 
>L : IMMEDIATE marker for LEAVES 
immed D0.2,DO,docok>n 

DW LIT.xdo.COMMABRANCH.HERE 

DW LIT.O.TOL.EXIT 

;ZENDL0OP adrsxt— L;0a1a2.. aN — 
.BRANCH .DEST backward loop 
BEGIN L> ?DUP WHILE POSTPONE THEN REPEAT ; 
resolve LEAVES 
TMs is a common factor of LOOP and -^LOOP. 
head ENDLOOP,7.ENOLOOP.docolon 

DW COMMABRANCH.COMMAOEST 
LOOP1: DW LFROM.QDUP.qbianch.LOOP2 

DW THEN.branch.LOOPI 
L00P2: DW EXIT 

iCLOOP adrs— L:0a1a2 aN — 
; n xtoop ENDLOOP ; IMMEDIATE 
immed L0OP.4.LOOP.docolon 

DW LIT.xloop.ENDLOOP.EXIT 

;C+LOOP adrs— L:0a1a2.aN — 

; ri xplusloop ENDLOOP : IMMEDIATE 

immed PLUSLOOP.S.+LOOP.docolon 

DW LIT.xplustoop.ENDLOOP.EXIT 

CLEAVE — L: — adrs 

ri UNLOOP ,XT 

n branch .BRANCH HERE DUP .OEST >L 

; IMMEDIATE unconditional forward branch 

immed LEAVE,5.LEAVE.docolon 

DW LIT.unk>op,COMMAXT 

DW LIT.branch.COMMABRANCH 

DW HERE.DUP.COMMADEST.TOL.EXIT 

; OTHER OPERATIONS 



;X WITHIN n1|u1 n2Iu2n3|u3 — f n2<=n1<n3? 
; OVER - >R - R> U< ; per ANS document 
head WITHIN.B.WITHIN.docolon 

DW OVER.MINUS.TOR.MINUS 

DW RFROM.ULESS.EXrr 

C MOVE addr1 addr2 u — smart move 

VERSION FOR 1 ADDRESS UNIT = 1 CHAR 
>R 20UP SWAP DUP RQ + — ... dstsrc src+n 
WrmiNIF R>CMOVE> sre <= dst < src+n 

ELSE R> CMOVE THEN ; otherwise 

head MOVE.4.MOVE.docok>n 

DW TOR.TWOOUP.SWOP 
DW DUP.RFETCH.PLUS 
DW WITHIN.qbranch.MOVEl 
DW RFROM.CMOVEUP.branch.MOVE2 
MOVE1: DW RFROM.CMOVE 
M0VE2: DW EXIT 

;C DEPTH — -i-n number of ilwne on atack 

: spo SO SWAP - 2/ : is-bit version) 

head DEPTH.S.DEPTH.dccokxi 

DW SPFETCH.SO.SWOP 



DW MINUS.TWOSLASH.EXIT 

iC ENVIRONMENT? c-addr u — false system query 

— i'x true 
2DROP ; the minimal definition! 

headENVIRONMENTQ.12.ENVIRONMENT?,docolon 

DW TWODROP.LIT.O.EXrr 

; UTILITY WORDS AND STARTUP 



X WORDS — list all words in diet 

LATEST Q BEGIN 

DUP COUNT TYPE SPACE 

NFA>LFA e 
DUP 0= UNTIL 
DROP; 
head WORDS.S.WORDS.docolon 

DW LATEST. FETCH 
WDS1; DW DUP.COUNT.TYPE.SPACE 

DW NFATOLFA.FETCH 

DW DUP.ZEROEQUAL.qbranch.WDSI 

DW DROP. EXIT 

X .S — print stack contents 

SP© SO - IF 

SPe so 2 - DO I e U -2 ♦LOOP 
THEN; 
head DOTS,2,.S.docolon 

DW SPFETCH.S0.MINUS.qbranch.DOTS2 
DW SPFETCH.S0.LIT.2.MINUS.XDO 
DOTS1: DW II.FETCH.UDOT.LIT 

DW -2.XPLUSLOOP.DOTS1 
DOTS2: DW EXIT 

Z COLD — cold start Forth system 

UINIT UO #INIT CMOVE init user area 

TIB COUNT INTERPRET interpret CP/M cmd 

" Z80 CamelForth etc " 
ABORT ; 
head COLD.4,COL0,docolon 

DW UINIT.UO.NINIT.CMOVE 

DW TIB.COUNT.INTERPRET 

DW XSQUOTE 

DB35.'Z80 CamelForth v1.0 19 Aug 1994' 

DB Odh.Oah 

DW TYPE. ABORT ; ABORT never returns 



LISTING 3. 



CamelForth for the Zilog Z80 
(c) 1994 Bradford J. Rodriguez 
Permission is granted to freely copy, modify, 
and distribute this program for personal or 
educational use. Commercial inquiries should 
be directed to the author at 221 King St E . 
#32, Hamilton. Ontario L8N 1 B5 Canada 

CAMEL80D AZM: CPU and Model Dependencies 
Source code is for the Z80MR macro assembler. 
Forth words are documented as follows: 

' NAME stack — stack description 
Word names in upper case are from the ANS 
Forth Core word set Names in lower case are 
"internal" implementation words & extensions. 

Direct-Threaded Forth model for Zilog Z80 
cell size is 1 6 bits (2 bytes) 
char size is 8 bits (1 byte) 
address unit is 8 bits (1 byte), i.e.. 

addresses are byte-aligned. 



; ALIGNMEt^ AND PORTABILITY OPERATORS 



; Many of these are synonyms for other words, 
; and so are defined as CODE words. 

;C ALIGN — align HERE 

head ALIGN.S.ALIGN.docode 
noop: next 

;C ALIGNED addr — a-addr align given addr 

head ALIGNED.7.ALIGNED.docode 
jr noop 

•Z CELL — n size of one cell 

twad CELL.4,CELL.docon 
dw2 

:C CELL+ a-addr1 — a-addr2 add cell size 
; 2 + ; 
head CELLPLUS.S.CELL+.docode 



inc be 
inc be 
next 

;C CELLS n1 — n2 cells->adrs units 
head CELLS,5,CELLS,docode 
jp twostar 

;C CHAR+ c-addr1 — c-addr2 add char size 
head CHARPLUS.S.CHAR+.docode 
jp oneplus 

;C CHARS n1 — n2 chars->ad[S units 
head CHARS,5.CHARS.docode 
jr noop 



adrs of param field 



,C>BODY xt — a-addr 
; 3 + ; Z80 (3 byte CALL) 
head TOBODY,S,>BODY.docolon 
DW LIT,3,PLUS.EXIT 



,X COMPILE, xt — append execution token 
I called this word .XT t>efore I discovered that 
it is defined in the ANSI standard as COMPILE.. 
On a DTC Forth this simply appends xt (like . ) 
but on an STC Forth this must append 'CALL xf . 
head COMMAXT.S.'COMPILE.'.docode 
jp COMMA 

,Z !CF adrs cfa — set code action of a word 
OCD OVER C! store 'CALL adrs' instr 

1-H; Z80 VERSION 
Depending on the implementation this could 
append CALL adrs or JUMP adrs. 
head STORECF.3.!CF.docolon 

DW LIT.OCDH.OVER.CSTORE 
DW ONEPLUS.STORE.EXIT 

;Z .CF adrs — append a code field 

; HERE !CF 3 ALLOT ; Z80 VERSION (3 bytes) 
head COMMACF.3.',CF.docolon 

DW HERE.STORECF.LIT,3,ALLOT,EXIT 

,Z ICOLON — change code field to docolon 

-3 ALLOT docolon-adrs ,CF ; 
This should be used immediately after CREATE. 
This is made a distinct vrord. because on an STC 
Forth, colon definitions have no code field, 
head STORCOLON.6.'ICOLON'.docolon 
DW LIT.-3.ALL0T 
DW LIT.docolon.COMMACF.EXIT 

;Z .EXIT — append hi-level EXIT action 

ri EXIT ,XT ; 
This is made a distinct vrard, t>ecause on an STC 
Forth, it appends a RET instruction, not an xt. 
head CEXIT,5,',EXIT.docolon 

DW LIT.EXIT.COMMAXT.EXIT 

; CONTROL STRUCTURES 

; These words allow Forth control structure vrords 
; to be defined portably. 

Z .BRANCH xt — append a branch instruction 
xt is the branch operator to use. e.g. qbranch 
or (loop). It does NOT append the destination 
address. On the Z80 this is equivalent to .XT. 
headCOMMABRANCH.7.'.BRANCH'.docode 
jp COMMA 

Z ,DEST dest — append a branch address 
This appends the given destination address to 
the branch instruction. On the Z80 this is '.' 
...other CPUs may use relative addressing, 
head COMMADEST.S.'.DEST.docode 
jp COMMA 

Z I DEST dest adrs — change a branch dest n 
Changes the destination address found at 'adrs' 
to the given 'desf. On the Z80 this is 'I' 
...other CPUs may need relative addressing, 
head STOREDEST.S.'IDESF.docode 
jp STORE 

; HEADER STRUCTURE 

The structure of the Forth dictkjnary headers 

(name, link, immediate flag, and "smudge" bit) 

does not necessarily differ across CPUs. This 

structure is not easily factored into distinct 

"portable" words; instead, it is implicit in 

the definitions of FIND and CREATE, and also in 

NFA>LFA, NFA>CFA, IMMED?. IMMEDIATE, HIDE, and 

REVEAL. These words must be (substantially) 

rewritten if either the header structure or its 

inherent assumptions are changed. (end listings.) 
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READER TO READER from page 6 
napolis, MD. He wanted me to go over 
it to see if the hardware lodced usable 
and then see if we could get it working 
with system disks. 

After opening it up, I found two proces- 
sor chips, an 8086 and a Z80. There 
were parallel and a serial port, 256 k of 
RAM and two S.2S full height drives. 
The case sqipeared to be an upscale copy 
oftheK^pro design. Applying power 
with no boot disk revealed a decent little 
monitor program in ROM. Pl^ng with 
the monitor, I determined that the RAM 
and both floppy drives were good, that 
the video circuits and keyboard all func- 
tioned, as did the 8086 processor. Now 
to find boot disks! One email call for 
help drew a note from Don Maslin say- 
ing that he could stpply the system disks 
for the cost of media and handling! Could 
this be REAL? I sent a check and within 
the week had the magic media to make 
the little jewel come alive! There were 
two versions of MS-DOS, version 1.0 
and 2.0, as well as CP/M 2.2 for the Z80 
side. I booted each disk and made backup 
copies of the disks (on which I had just 
installed write-protect tabs). That done, 
I played a bit with each system to see 
how it woriced. 

The MS-DOS disks offered the basic 
tools of that OS and all seemed to work. 
I do not have an MS-DOS machine un- 
less you count the Z-100 which my son 
runs in CP/M. I never pursued that side 
of the Z-100 since most of the software 
was written for PC-DOS which was just 
enough different that the Z-100 would 
scream 'WILD INTERRUPT' and quit. 
Therefore, my evaluation of the 8086 
side of this machine is limited to just a 
quick cruise through the OS utilities. 
Version 2.0 came with several little utiU- 
ties that I found nice. The first was called 
OPTION.EXE and allows one to config- 
ure the machine hardware. This con- 
figuration is saved in Non-Volatile RAM 
and will remain in force until changed 
by the program or over-ridden by an 
appUcation. (Nice applications should 
return the system to the way they found 
it.) This was important to me since the 
configuration of the hardware also im- 
pacted the how the system worked when 
under the Z-80 processor. 



Opt. A — Set the amount of memory: up to 640 k. 

C^tB— Setthenumberofprintei!:(0-3) 

Opt. C — Enable/disable the A/D game port 

Opt. D — Startup video mode >dectk>n. 

Opt. E — Auto Boot Enable/DisaUe. 

Opt. F— SetNumber of8erialport>:(0- 7) 

Opt. G — Set Keyboard key tone, (dkk - beep) 

Opt. H — Set Color or BftW disj^y. (This one U green ;-) 

Opt. 1 — Set PC/XT Compatibility mode. (Not tested) 

Opt J — Set Serial Port A (baud, parity, atopa, bits) 

Opt K — Set Serial Port B (baud, parity, stops, bits) 

Opt L — Set number of disk drives ( 1 - 2 ) 

Opt M — Set Cok>r Palettes ( Set this one to green ;-) 

Opt N — Redirect line printer ( serial or patalld port) 

Opt O — Set aerial ports ( Seequa or IBM Style, untested) 

Opt P — Set scroll Option ( Cast or slow ) 

Opt R — Reset options to bctoiy defaults. 

The other utilities are software to estab- 
lish a RAM disk, a print spooler, and a 
communications program (a quick port 
of the CP/M stuff on bulletin boards). 

Now for the GOOD stuff! The Z-80 and 
CP/M 2.2! The system disk ^rted the 
basic CP/M environment utihties and 
booted a 64k system with CCP at E400, 
BDOS at EC06, and BIOS at FAOO. 
Exploration of this system was just a bit 
slow at first until I was able to define the 
disk format so I could work with the OS 
on niy regular machine with Z-System 
utilities. The ASM and LIB files sup- 
plied are generic MDS-800 files and do 
not contain the Seequa - Chameleon 
specifics. Therefore, to find out things 
about the system, I needed to PEEK ram 
in the BIOS area. This, too, was a bit 
frustrating as some of the BOOT code is 
overwritten when no longer needed - 
good programming practice to conserve 
memory, but tough on peekers. 

The break came during formatting and 
sysgen process on a new disk. I noticed 
that the disk space decreased when the 
disk was sysgened. This meant that there 
was a directory entry for the boot system. 
Direct read of the disk using the monitor 
revealed a CPM80.SYS file with high 
bits set to SYSTEM status. Clearing this 
flag gained access to the system tracks 
using DUMP or DDT. Now I was cook- 
ing! Examination of the bios Disk Pa- 
rameter information allowed me to set 
up my machine to read/write the 
Chameleon's disk format. Also, I now 
had the machine specific information on 
ports, eto. From this file, we can build 
the correct CBIOS.ASM file to allow 
development of the system. I'll not go 
any fiirther down this path — don't want 
to steal all of the fim! The disk format 
information is of vital interest to any one 
wishing to develop or assist someone 



with one of these machines. So, I'll 
divulge what I know: 

Disk type — Soft sectored, 5.25 inch, 
40 track, Single or Double Sided, Double 
Density. 



STAT DSKj d:DSK: command displayed the foOowing: 
(where d: is die disk drive being read) 
232« : 128 byte record capacity 
316 : k-byte drive capacity 
64 : 32 byte dinctccy entries 
64 : Chedced directory entries 
236 : Records / Extent 
16: Records/ Block 
32: Sectors/ Track 
1 : Reserved track 



Listening to the disk drive stepping dur- 
ing format hinted that we wrote outside 
to inside trades on side and inside to 
outside tracks on side 1. This proved to 
be the case for formatting, but not for 
disk reads and writes. So, set your emu- 
lator for SSDD or DSDD, DD on Track 
• side 0, all sectors side then aU 
sectors side one (DSDD), 5.25 inch 
media, 300 RPM, 2k allocation size, and 
512 physical sector size. Configure the 
rest as follows: 

Single Double Sided 



Skew&ctcr 


1 


1 


Start sector 


1 


1 


Physical sectors/track 


8 


8 


Physical tracks/side 


40 (28h) 


40 


Logical sectors/track 


32 (20h) 


32 


Block shifi 


3 


4 


Block mask 


7 


13 (OFh) 


Extent mask 


1 


1 


Disk size -1 


153 (9Bh) 


157 (9Dh) 


Directory maximum -1 


63(3Fh) 


63 


Allocation 0, 1 


192. (0C0h)128. (80h, Oh) 


Check size 


16 (lOh) 


16 


Tiackofiet 


1 


1 


Skew table 


1. 2, 3, 4, 5, 


6,7,8 (same) 



Next, I was interested in how the unit 
would work with ZCPR. Everything 
worked under NZCOM (ZCPR 3.4) with- 
out a single hitch. The terminal behaves 
very well when treated as a TVI-920. 
The resulting system (fiill ZCPR sys- 
tem) only occupied 8k, leaving a 57k 
TPA. Since I don't have schematics or 
much experience with this machine, I 
can't speak to the ease or expense of 
adding a hard disk. If this feat can be 
reasonably accomplished, one could 
easily have a really neat luggable unit. 

To sum it all up, keep yotu- eyes pealed 
at yard sales and flea markets. This little 
box can be a lot of fim for not much 
money! - Ken. 

Great Ken! Sounds like you had lots of 
fun. Thanks. Bill. 
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Regular Feature 

Editorial Comment 

File System and More 



The Computer Corner 

By Bill Kibler 



For many issues in TCJ I have talked 
about a universal operating system. We 
have reviewed CP/M and will be review- 
ing 0S9 in greater detail as well. In the 
last two issues I mentioned and reviewed 
Forth Inc's polyForth. Since my interest 
is really on building a universal operat- 
ing system that any 8 bit user could use 
or adapt with Uttle problem, my interest 
in polyForth has to do with their features 
that would guide us in a better design of 
the universal system. 

There are many Forths on the market, 
just as there are many types of clone 
machines. Sometimes it is nice to have 
the original product and polyForth is as 
close to the original Forth as one can 
get. The difference between getting an 
original Forth and an the original IBM 
PC is that the Forth version works very 
well unlike those first PC's. 

1 am not here to sell polyForth but to 
explain how lodking at it can help us 
better understand the task ahead, if we 
want to truly produce an operating sys- 
tem that can run on any small 8 bit 
system. We can help that understanding 
t^ looking at features that might be use- 
fiil to implement. 

One feature that polyForth has, and 
which is common in all operating sys- 
tems, is virtual I/O. They have chosen a 
method of virtual disk I/O that has many 
advantages that I feel you need to know 
about. To understand their choice also 
requires a little background in how op- 
erating systems handle disk I/O. 

DISK I/O 

Since a large percentage of our readers 
are CP/M based, let us use that as a base 
implementation. To review the idea of 



CP/M, it is to isolate the hardware fea- 
tures from the software requirements. 
Thus if hardware platforms vary in how 
they do I/O (terminals, printers, disks, 
etc.) the running software program still 
runs on all variations of hardware pos- 
sible. 

This isolation between hardware and 
software came by separating the disk 
and I/O requests from those of the actual 
hardware. The BDOS provides a list of 
BASIC (DOS- DISK Operating Sys- 
tem) fimctions, that make requests of the 
BIOS (BASIC Input & Output System) 
that is specific to the hardware design. 
Although easy to see why this was done, 
before CP/M almost all programs were 
written for specific hardware and would 
not run on other platforms. 

Through the use of the BDOS interface 
our software program gets a VIRTUAL 
view of the I/O. In the case of the termi- 
nal, we can just send data to it without 
understanding the physical type or inter- 
face protocol used. The same is true for 
the DISK I/O. The BDOS sets up an 
imaginary disk structure which is used 
the same in all implementations. 

Since this article is really food for 
thought, 1 will leave the greater details 
for a later time. The simple details of 
CP/M however relies on the use of 
BLOCK PARAMETER TABLES. These 
tables convert the virtual disk data loca- 
tions into a physical disk track and sec- 
tor location. Thus a request for a certain 
block of data, gives a corresponding track 
and sector value to the BIOS for re- 
trieval. 

Forth in the beginning 

The good points of this type of operation 



are the isolation of physical disk design 
from the program, and similar operation 
across platforms. A negative point is the 
need to have single disk capacities large 
enough for a given program. Since each 
disk has it's own block table and they 
may be different from disk to disk or 
disk type, it doesn't provide a truly VIR- 
TUAL disk structure then. 

Forth was designed in the early days of 
computing and saw this problem from a 
different view point. The virtual concept 
started with terminal character size. All 
terminals then, were 60 characters by 16 
lines. This size also amounts to a IK 
(1024 bytes) buffer space. So Chuck 
Moore used this screen size as the con- 
trolling factor in the design of Forth. 

His idea was limiting coding design to 
ONE screens worth. These single screen 
worth he called BLOCKS. From a pro- 
grammers point of view, each block 
would represent a single idea or proce- 
dural part of the program. The disk file 
system then gets broken into IK seg- 
ments that each represent a single pro- 
gram function. Much Uke the disk pa- 
rameter table, each block is given a single 
block number. Unlike CP/M however, 
since Forth rides on top of the operating 
system, the block numbering need not 
end when the disk is fiill. 

Before the days of hard disk systems, 
four or more floppy disks were not un- 
usual. Most programs could use the other 
disks, but only when directly referenced. 
Your program would not run if the disks 
were out of order, or a failure happened 
to one of the drives. I remember being 
imable to use programs because they hard 
coded drive designations and made no 
means for altering them. 
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Chuck's answer was virtual block num- 
bering. At boot time you mount the drives 
and their beginning and last block num- 
ber (more on mounting later). Since you 
alw^s have access to the source code, 
changing this mounting procedure is 
possible in cases of problems. You can 
also mount as many as you like and have 
, their block number continue from one 
disk to the other. From the programmers 
view point, they have a virtual disk of 
unlimited size. From a users view, I 
moimt the range of blocks I need at the 
moment as well as being unconcerned 
about disk size. 

Now many systems mount disks. Mount- 
ing a disk, is in essence telling the disk 
operating system, the size and nature of 
the media just attached to the system. 
All PCDOS disk have an ID table in the 
first sector that provides this informa- 
tion (track/sectors/sides). UNIX systems 
use mounting to attach the disk into the 
directory structure. Operating systems 
like NT will also have some method of 
mounting that tells the system which 
operating system to emulate when load- 
ing and running programs from that disk. 

TOO many variations 

For readers of TCJ, having so many 
variations of disk systems and disk for- 
mats is a big problem. I find the Forth 
method something worth considering. 
Frank Sergeant's PYGMY Forth uses 
this method as well as polyForth. Try 
PYGMY Forth, it's free to start with, 
and see how Frank arranged his blocks 
and programs. Consider then, that each 
grouping of blocks could be a separate 
disk or ROM. 

Suisse you have an embedded control- 
ler that needs a large menu of user func- 
tions. Our 64K system could have the 
main portion in the lower 32K or 32 
blocks of program. The upper 32K might 
be multiple 32K ROMs. The program 
deals witii one list of blocks, while the 
kernel switches banks of ROMs as the 
block numbers increase (64,96,128, 
etc.). 

I found blocks very beneficial when do- 
ing my master's tutorial program. The 
abiUty to load a given block by number 



made the tutorial a snap to produce. 
Trying to use pointers or markers in a 
single file structure would have made 
the program many more times complex 
and very difficult to change. 

DO FT VIRTUALLY 

Whatever operating system you currently 
use, you are doing virtual I/O. When 
working with embedded controllers and 
small systems, the design or features of 
the virtual I/O become important. If you 
have massive amounts of horse power, 
disk space, and screen to squander, then 
understanding or taking advantage of 
your I/O is probably of little concern. 

When we continue the discussion of an 
universal small system operating plat- 
form, usage of the virtual I/O will be 
very important. I think some concept 
along the lines of Forth's block system, 
with it's ability to span multiple disks 
should be considered. 

Z180ISA and CP/M CDROM? 

I talked to ZWorld last week after read- 
ing their newsletter. Seems they just re- 
leased a Z180 PC104 board. The fine 
print however indicated an ISA bus (PC/ 
XT format) card will be released in Oct/ 
Nov of this year. They promise to send 
me more information soon. So I guess I 
can stop designing one myself. 

Actually I would like to know if anyone 
has started (or finished) porting ZCPR/ 
CPM to any of ZWorld's products or any 
modem products like the PC 104 board. 
We really need to have a list of new 
products and their implementations. So 
drop me a note if you've done this. I 
think the PC 104 might offer some real 
impressive features, not to mention speed 
and display options. What's the PC 104 
interface? Well the PC Bus is rather 
large and for embedded work small is 
the main consideration. So people started 
stacking very small size cards. The stan- 
dard pin configuration is the small as 
the XT and AT bus, just they are vertical 
pin and sockets, not the card edge and 
no backplane BUS! (More later.) 

I called Walnut Creek CDROM (800- 
786-9907) just before each issue to see if 



the CP/M CDROM is ready. This time I 
was promised it would be mastered next 
weekend (Sept 19) with shipment the 
following week. Now I have been prom- 
ised this before, but the la<fy said it really 
is going then and I will get mine soon. 
Hopefully by the time you get this issue. 

SMALL PLC? 

I was reading B&B catalog (815-434- 
0846) the other day at work and saw 
they have a small PLC program for PCs. 
It is designed to work with their line of 
parallel I/O devices, but can be 
adaptedeasily to any I/O structure. I have 
run it and it works, only it uses sinq)le 
ladder structure. Real complex ladder 
functions aren't possible. It looks like it 
is done in Pascal and would provide 
some simple training on hoe PLC's work. 
It will run in the background, so I guess 
you could use it on an XT or any system 
you have on all the time. 

The items I like are data acquisition 
products, all based on serial and parallel 
port usage. Their parallel port is $99 
and with the $99 price of the PLC pro- 
gram it all would be a bit high for a PLC 
system witii only 8 I/O lines, but Uien 
witii Uie cost of PC/XT's at $5 each, it 
still comes out cheaper than most com- 
mercial PLC products. Maybe we can do 
one for less, hmmmmm... 

Speaking of PC/XT's, I saw sometiiing 
that made me appreciate CP/M. I have a 
flyer explaining a program that will run 
on DOS, or Windows, or 0S2. What 
caught my eye was the needed space for 
each platform. Both windows and 0S2 
needed 400K of disk space with 160K of 
memory, all for a simple background 
program. How do I know it is simple, the 
DOS version needs 40K of disk space 
and 4K of RAM. The only expression I 
can think of to compare this to is a fly 
swatter to a nuclear bomb. Now of course 
CP/M proably would only need 4K of 
disk and about half a K of RAM, but 
then that is only a guess. 

Next time? 

My pile of to be talked about is getting 
large so next time maybe a sUghtiy longer 
Computer Comer? Will see. 
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TCJ CLASSIFIED 



CLASSIFIED RATES! 
$5.00 PER LISTING! 

TCJ Classified ads are on a prepaid basis 
only. The cost is $5.00 per ad entry. 
Support wanted is a free service to sub- 
scribers who need to find old or missing 
documentation or software. Please limit 
your requests to one type of system. 

Coinmercial Advertising Rates: 



Size 


Once 


A+ 


Full 


$120 


$90 


1/2 Page 


$75 


$60 


1/3 Page 


$60 


$45 


1/4 Page 


$50 


$40 


Maricet Place 


$25 


$100/yr 


Send your items to: 




The Computer 


Journal 


P.O. Box 535 


Lincoln, 


CA 95648-0535 



Historically Brewed. The magazine of 
the Historical Computer Society. Read 
about the people and machines which 
changed our world. Buy, sell and trade 
"antique" computers. Subscriptions $18, 
or try an issue for $3. HCS, 10928 Ted 
WiUiams Place, El Paso, TX 79934. 

Wanted: Good complete floating-point 
padtage (IEEE single and/or double pre- 
cision) for the 8051 Micro. Should be 
public domain, but commercial better 
than nothing. Send info to tilmann.reh@ 
hrz.uni-siegen.d400.de. 

Wanted: Mother board for one of the 
following Kaypro 4X, 2X, or possibly a 
1984 Kaypro 2. Charles Brown, Box 
1046, Twin Peaks, CA 92391 (909)337- 
3049. 

For Sale: Radio Shack Model II, 64K, 
very nice, runs great, CPM2.24, lots of 
manuals and software. $65 plus ship- 
ping. Call 805-491-3421. Ask for Charlie 
or leave message. 



For Sale: 2 XT computers, $50 each, 2 
101-Key KB's, $12 ea. 3 Epson printers, 
$50 ea. 30 copies of CC;Mail DOS plat- 
form pack w/8 users, V3.2, $100 ea/ 
offer on all. Compaq portable, IBM KB's, 
HP terminal, Toshiba 321 SL, Xerox 
workstation CPU (80186 & NS proces- 
sors) circa 1982: Make offers. Misc. elec- 
tronic parts; fans, fuses, tubes, power 
supplies, ask. Mark Moweiy, 400 W. 5th 
#42, Grandview, WA 98930-1254, Tel. 
(509)882-2940. 

Notice: PseudoCorp has moved. The 
new address is : 921 Country Club Road, 
Suite 200, Eugene, OR 97401. 



6811 and 8051 
Hardware & Software 



Supporting over thirty versions 
with a highly integrated 
development environment- 
Cur powerful, easy to use 
FORTH runs on both the PC 
host and Target SBC with very 
low overhead 

Low cost SBC's from 

$84 thru developers systems. 

For brochure or applications: 

AM Research 

4600 Hidden Oaks Lane 

Loomis, CA 95650 

1(800)947-8051 
sofia@netcom.com 



^^1 


^3i 




Electronic 


Dl 


Bl 


s 


Design 




Dave Baldwin 




6619WestbrookDr. 
Citrus Heights, CA 95621 


Voice/Fa> 
DIBs BBS 


t (916) 722-3877 
) (916) 722-5799 



SUPPORT 

OUR 

ADVERTISERS 

TELL THEM 

"I SAW IT IN 

TCJ" 



$79.95 



68HC811 

Single Board 
Computer 

SBC-E2 



A1 Version - $59.95 

Develop Your 
Own Projects 

Programs completely from PC via 

RS-232. 2048 Bytes EEPROM. 

256 Bytes RAM. 24 - TTL I/O Bits. 

8-8bitA/D Inputs. SPI. 



SBC-E2 Is low power CMOS, <20 ma, 5 volts 
DC. 3.1" X 3.6". FREE Bootloader, 480 pages of 
documentation, schematics, utilities, sample 
programs and source code Included. 
Add $3.50 stripping. MO residents add %S tax. 
Pre-paid or COD only. 



LDG 
Electronics 

410-586-2177 



1445 Parran Road 

St. Leonard MD 

20685 
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Market Place 



TCJ- 



Discover 
The Z-Letter 

The Z-letter is the only publication 
exclusively for CP/M and the Z-System. 
Eagle c(»i^)uters and Spellbinder siq)poit. 
Licensed CP/M distributor. 

Sid>scriptions: $18 US, $22 Canada and 
Mexico, $36 Overseas. Write or call for 
free sample. 

The Z-Letter 

Lambda Software Publishing 

149 West Billiard Lane 

Eugene, OR 97404-3057 

(503) 688-3563 



Advent Kaypro Upgrades 

TurboROM. Allows flexible 

configuration of your entire 

system, read/write additional 

formats and more, only $35. 

Replacement Floppy drives and 
Hard Drive Conversion Kits. Call 
or write for availability & pricing. 



Call (916)483-0312 

eves, weekends or write 

Chuck Stafford 

4000 Norris Ave. 

Sacramento. CA 95821 



CP/M SOFTWARE 

100 page Public Domain Catalog, $8.50 plus $1.50 shipping 
and handling. New Digital Research CP/M 2.2 manual, $19.95 
plus $3.00 shipping and handling. Also, MS/PC-DOS Soft- 
ware. Disk Copying, including AMSTRAD. Send self addressed, 
stamped envelope for free Flyer, Catalog $1.00 

Elliam Associates 

Box 2664 

Atascadero, CA 93423 

805-466-8440 



The Computer Journal 



TCJ MARKET PLACE 

Advertising for small business 

First Insertion: $25 

Reinsertion: $20 

Full Six issues $100 

Rates Include typesetting. 

Payment must accompany order. 

VISA, MasterCard, Diner's Club, 

Carte Blanche accepted. 
Checks, money orders must be 

US funds. Resetting of ad 

consitutes a new advertisement 

at first time insertion rates. 

Mail ad or contact 

The Computer Journal 

P.O. Box 535 
Lincoln, CA 95648-0535 



NEW MAGAZINE 

the world of 68' micros 

supporting 

Tandy Color Computer 

OS-9 & OSK 

$23/year for 8 issues 

$30/year Canada/Mexico 

$35/year overseas 

Published by: 

FARNA Systems 

P.O. Box 321 

Warner Robins 

GA 31099-0321 



S-100/ICCC-696 



lA/ISRI Rltoir 

Compupro Morrouj 

Cromemco 



and morel 

Biniiiiiniiiiiiiiiiiiiiiiiiiiuiiiiiinmiiii iiiiiiiim - 



Cords* Docs • Systems 

Dr. S-ioo 

Herb Johnson, 

CN 5256 #105, 

Princeton. NJ 08543 

(609)771-1503 



THE FORTH SOURCE 



Hardware & Software 



MOUNTAIN VIEW 
PRESS 



Glen B. Haydon, M.D. 

Route 2 Box 429 
U Honda, CA 94020 

(415)747 0760 



PCB's in Minutes 
From LascrPrint!* 




• Or Photocopier 

Use household 

iron to opply. 



PnP ftUIC 

For High decision 
ProfessiofKil PCB l^x/outs 

1 . laMrPrinI 

2. Iron-On 

3. Peet-orr 

4. etch 

Rn €xtra Lover oF Resist 
for Super Fine Traces 



pnpuier 

Eos^Hobbv 
Quolltv PCB's 
l.lowiMnI 
2. Iron-On 

3.So<ik-0(riii/Ulaler 
4.Ctdi 

Tronsfeis User or 
Copier Toner as Resist 



S0Sh$30/40ShSS0/100ShSl00 BlueAUet (No Mix) 
Sompie Poclt 5 Shts Blue + 5 Shts Ulet $S0 
VISfl/MC/PO/CK/MO $4 S&H - 2nd Doy Moil 

Techniks Inc. P.O. Box 463 Ringocs NJ 085S1 
(908)788-8249 



BASIC Stamp 

$39 single-board computer runs BASIC 



o 



an 



o 



^ 



J 



Radio Shack 

Thermistor 

(271-110) 

O.ImF 



The Stamp can measure 
resistance with just a few 
low-cost parts. 



Helpful application notes 
show you how to connect 
common I/O devices, such 
as A/D conveners. 




BASIC language includes instructions forserial I/O, PWM, 
potentiometer input, pulse measurement, button 
delrounce, tone generation, etc. 

Has 8 digital I/O lines, each programmable as an input or 
output. Any line can be used for any purpose. 

Small prototyping area provides space for connecting 
signals and extra components. 

Powered by 5-12 VDC or 9-volt battery. 



Consumes just 2 mA (typical) or 20 |iA (sleep). 

Special cable connects Stamp to PC parallel port for 
programming. 

Programming Package includes PC cable, software, 
manual, and technical help for $99. 

Individual Stamps may be purchased for $39. 

Requires 8086-based PC (or better) with 3.5" disk drive. 
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